Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, просто спросите и получите ответ ;-)

Вопрос #000952: Обработка файлов в C# (.NET 2.0)

Автор вопроса: Сергей // 09.05.2008 / 18:07

Доброе время суток!
 В общих словах, такая задача поставлена передо мной: На веб-странице 
 пользователь выбирает файл, нажимает кнопку
"Импорт" и из этого файла 
 данные импортируются в таблицу БД Oracle.
 Файл должен быть текстовым, первые 2 строки- информация о времени и 
 логине того, кто выгружал. После них идут строки данных, поля 
 разделяются симоволом | .
 Просьба дать ссылки на документацию по работе с файлами, которые могут 
 помочь :-)

Отвечает: Алексей Немиро // 12.05.2008 / 10:34

Здравствуйте, Сергей.
 
 Необходимые классы и функции для работы с файлами лежак в пространстве имен System.IO. Также Вам могут понадобиться классы для работы с регулярными выражениями, которые лежат в пространстве имен System.Text.RegularExpressions.
 Что касается импорта файлов, то данные можно
взять прямо из потока FileUpload.PostedFile.InputStream, передать их в StreamReader и обработать при помощи регулярных выражений. 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000947: Секундомер

Автор вопроса: Александр // 08.05.2008 / 17:40

Добрый день!
 Как сделать секундомер на сайте kbyte.ru много но вот все они выдают результат как 345сек, а мне надо 1:45:01 то есть в временом формате. Как сделать???
 
 .....

Отвечает: Алексей Немиро // 09.05.2008 / 08:29

Здравствуйте, Александр.
 
 Зная, что в минуте 60 секунд, в часе 60 минут, а в сутках 24 часа, можно легко превратить 345 секунд в нужный формат.
 001:
002:
003:
004:
005:
006:
007:
008:
009:
Dim sec As Integer
sec = 345
Dim ssec As Integer, min As Integer, hour As Integer
If sec > 59 Then
 min = Int(sec / 60)
 ssec = sec Mod 60
End If
If min > 59 Then hour = Int(min / 60)
MsgBox sec & " сек. = " & hour & "
ч. " & min & " мин. " & ssec & " сек."

 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000937: DLOOKUP??

Автор вопроса: Алексей // 05.05.2008 / 16:37

Почему те поля формы, которые имеют в ControlSource функцию Dlookup не записывают значение полей в конечную таблицу?
 
 --------------------------------------
 Категория: --- MS Access

Отвечает: Алексей Немиро // 06.05.2008 / 05:24

Здравствуйте, Алексей.
 
 Из справки MS Access: Функция Dlookup
 При использовании этой функции не учитываются
 несохраненные изменения записей подмножества. Если функция
 DLookup должна использовать измененные значения, необходимо сначала сохранить
 изменения с помощью команды Сохранить запись в меню
 Записи, с помощью перемещения фокуса на другую запись или
 метода Update.

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000935: VB работа с веб-камерой

Автор вопроса: Анна // 05.05.2008 / 02:35

Язык: Visual Basic 2008 Express Edition.
 Подскажите, пожалуйста, как из приложения (Windows Form Application) получить доступ к вебкамере, а именно получить снимок в виде bitmap (отобразить его на форме или же сохранить как bmp-файл). 
 Заранее очень благодарна!
 P.S. Просматривая архив вопросов я уже нашла некоторые решения возникавших у меня проблем - Спасибо огромное! 
 
 .....

Отвечает: Алексей Немиро // 05.05.2008 / 09:33

Здравствуйте, Анна.
 
 Попробуйте воспользоваться этим классом
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000929: MsgBox с двумя кнопками

Автор вопроса: Алекс // 01.05.2008 / 23:53

Есть поле со списком на форме, необходимо при выборе определенной позиции из списка вывести MsgBox и две кнопки на нем, при нажатии
на которую, в другой TextBox всавлялся бы выбранный вариант ответа
 Подскажите, как можно это сделать или в каком направлении копать??
 
 --------------------------------------
 Категория: --- MS Access
 
 

Отвечает: Алексей Немиро // 02.05.2008 / 04:09

Здравствуйте, Алекс.
 
 001:
002:
003:
If MsgBox("Вставить?", vbQuestion Or vbYesNo) = vbYes Then
 '...
End If

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

Многопоточность | Автор: Arti
Добавлено: 30.05.2008 / 23:52 | ответов: 8 | просмотров: 151

Не получается разобраться со следующей проблемой
Код основной формы

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Создаем новый поток 
    Dim nth As New System.Threading.Thread(AddressOf Fill)
    ' запускаем
    nth.Start()
  End Sub

  Public Sub Fill()
    MyLV.FillOfProducts(PreparationList, True)
  End Sub

Colorized
by: Eros.CodeSyntaxColor Engine

код модуля (функции PreparationList)

001:
002:
003:
004:
005:
006:
' получаем список препаратов из базы
  Public Function PreparationList() As
List(Of Prepapration)
    Return MyBD.DBGetList
  End Function

Colorized by: Eros.CodeSyntaxColor Engine

код наследованного ListView

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
Public Class ListViewMy
  Inherits ListView

  Public Sub FillOfProducts(ByVal lop As List(Of Prepapration), ByVal noempty As Boolean)
    Select Case noempty
      Case False
        MyClass.Items.Clear()
        For Each Prep As Prepapration In lop
          Dim lvitm As New ListViewItem
          lvitm.Text = Prep.Code
          lvitm.SubItems.AddRange(New String() {Prep.MNN, Prep.TNLP, Prep.Cost, Prep.RestOfYear, Prep.CurentRest, Prep.CurentPlanStatus})
          MyClass.Items.Add(lvitm)
        Next
      Case True
        Me.Items.Clear()
        For Each Prep As Prepapration In lop
          If Not Prep.RestOfYear = 0 Then
            Dim lvitm As New ListViewItem
            lvitm.Text = Prep.Code
            lvitm.SubItems.AddRange(New String() {Prep.MNN, Prep.TNLP, Prep.Cost, Prep.RestOfYear, Prep.CurentRest, Prep.CurentPlanStatus})
            MyClass.Items.Add(lvitm)
          End If
        Next
    End Select
  End Sub
End Class

Colorized by: Eros.CodeSyntaxColor Engine

В результате запуска все срабатывает нормально но через сек. строка класса ListViewMy Me.Items.Clear() выделяется и выдается следующая ошибка Cross-thread operation not valid: Control 'MyLV' accessed from a thread other than the thread it was created on. . Как можно решить эту проблему

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:31.05.2008 / 05:40
'примерно так

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
Delegate Sub FillDelegate

'...
'...
'...

Public Sub Fill()
If Me.InvokeRequired Then
Me.Invoke(New FillDelegate(Fill))
Return
End If
MyLV.FillOfProducts(PreparationList, True)
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Arti
Добавлено:31.05.2008 / 12:29
Спасибо, получилось, только
001:
002:
003:
Me.Invoke(New FillDelegate(AddressOf Fill))

Colorized by: Eros.CodeSyntaxColor Engine
. Если можно опишите в двух словах принцип работы и что за Invoke, так всегда нужно будет организовывать многопоточность или только когда дело касается контролов?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Arti
Добавлено:31.05.2008 / 16:55
Косяк опять начал вылазить, причиной тому стало добавление в код формы процедуры

001:
002:
003:
004:
005:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Fill()
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

вобще получается интересная ситуация, т.е даже если убрать из кода формы Private Sub Form1_Load (проблема решается) все равно при загрузки происходит заполнение ListView только на этот раз вызывает это действие выше указанная процедура, спрашивается почему? Ведь по идеи всей литературы которая мне встречалась при загрузке должно выполняться только то что прописано в Private Sub Form1_Load или это не так?.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Алексей
Добавлено:31.05.2008 / 17:08
http://Kbyte.Ru/Forum/Show.aspx?id=8239

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: EROS
Добавлено:31.05.2008 / 17:31
Arti, если речь идет о том приложении, что мы обсуждали ранее, то многопоточность там абсолютно лишняя! Никакой выгоды,кроме дополнительных проблем, ты не получишь. Твоя задача не вписывается в разряд многопоточных.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 6 | Автор: Arti
Добавлено:31.05.2008 / 21:08
Пожалуй соглашусь, но не на долго :) Когда база вырастит(в частности история в базе) придется подробно разбираться с многопоточностю, делегатами, асинхронностью и т.д :) дабы основная форточка не подтормаживала.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 7 | Автор: EROS
Добавлено:31.05.2008 / 22:31
придется подробно разбираться с многопоточностю, делегатами, асинхронностью

Поверь на слово.. гораздо бОльший прирост производительности ты получишь от оптимизации БД, индексов, запросов и алгоритмов в программе нежели от использования многопоточности.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 8 | Автор: Игорь Голов
Добавлено:31.05.2008 / 23:12
Arti, использовать многопоточность - большое искусство.
Иначе масса гимора может появиться.
(как найду статью - выдам тебе на гора.)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

ListView динамическое обновление | Автор: Arti
Добавлено: 30.05.2008 / 20:26 | ответов: 0 | просмотров: 29

Здравствуйте, скажите возможно ли каким-то образом динамически обновлять ListView из базы данный. Задача в том чтобы сделать это не перезагружая весь лист, чтобы не сбрасывался выбранный Item т.е. выбрали item выписали какое-то количество товара информация сохранилась в базе и затем обновились соответствующие поля данного item-a, можно конечно непосредственно прописать значение свойств Text, но дело в том что в базе производится вычисления этих значений, а писать эти вычисления ещё и в программе смысла тогда от базы особого не будет.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Код из Delphi | Автор: Павел
Добавлено: 30.05.2008 / 19:08 | ответов: 1 | просмотров: 44

Здравствуйте. Помогите пожалуйста перевести код из Delphi на VB

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
procedure tausche (var a, b: char);
var c: char;
begin
 c := a; a := b; b := c;
end;

function
permutate (s: string): string;
var i: integer;
begin
 result := s;
 for i := 1 to (length(s) div 4) do
     tausche(result[2*i], result[length(result)-2*i+1]);
end;

этот код переставляет символы в слове, например, из слова "ADMINISTRATOR" получится слово "AOMANTSIRITSR". Спасибо.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:31.05.2008 / 05:36
наверное что-то типа этого:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
Private Sub tausche(ByRef a As String, ByRef b As String)
Dim c As String
c = a
a = b
b = c
End Sub

Private Function permutate(ByVal s As String) As String
Dim i As Integer
Dim res As String
res = s
For i = 1 To Len(s) Mod 4
  Dim a As String, b As String
  a = Mid(res, 2 * i, 1)
  b = Mid(res, Len(res) - 2 * i + 1, 1)
  tausche a, b
  Mid(res, 2 * i, 1) = a
  Mid(res, Len(res) - 2 * i + 1, 1) = b
Next i
permutate = res
End Function

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Столбик с выямсляемыми полями из другой таблицы | Автор: Arti
Добавлено: 29.05.2008 / 04:30 | ответов: 2 | просмотров: 72

Доброе время суток, есть некая таблица (см. вложение) тама есть запрос который вычисляет остатки, вопрос можно ли как-то в таблице List сделать столбик в котором отображались бы текущее остатки на базе этого запроса, пытался на базе "Столбец подстановок.." но не катит?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:29.05.2008 / 09:09
просто сделай запрос, который будет выводить и список товаров, и остатки.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Arti
Добавлено:29.05.2008 / 12:16
Только так наврно, что-то ничто не помогает решит эту проблему, даже и не думал что это так сложно сделать вычисляемый столбец в одной таблице на базе данных из другой, просто нужно было чтобы если в истории появились новые записи то остатки по данному PID пересчитались.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

использование глобальными объектами | Автор: iero
Добавлено: 29.05.2008 / 03:22 | ответов: 1 | просмотров: 49

как правильно реализовать сабж? (web developer вижу 2-ю неделю и нерегулярно)
пробую: в global.asax

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
<script runat="server">
  public class Global : System.Web.HttpApplication
  {
    public SqlDataSource orclsource;
   //  public DataSourceSelectArguments args;
    void Application_Start(object sender, EventArgs e)
    {
      // Code that runs on application startup
      orclsource =
new SqlDataSource(); //создаем
      Application["connection"] = orclsource; //добавляем в общий доступ
 
    }
  ....
  }

Colorized by: Eros.CodeSyntaxColor Engine

потом обращаюсь к объекту из кода старницы:

001:
002:
003:
004:
005:
006:
007:
008:
009:
...
 protected void Page_Load(object sender, EventArgs e)
  {
    SqlDataSource sorc =
(SqlDataSource)Application["connection"];
    sorc.SelectCommandType = SqlDataSourceCommandType.Text;
  }
....

Colorized by: Eros.CodeSyntaxColor Engine

на что он при выполнении выдает "NullReferenceException". т.е. там нет объекта.
подскажите ,куда чего добавить надо ,чтобы объект там был и виделся.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:29.05.2008 / 04:15
Про подводные камни в global.asax написано тут: http://aleksey.nemiro.ru/Programming/ASP-NET/Global-Asax.nspx

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Нестандартная форма
Автор: Zhenik Ipatov | добавлено: 05.05.2008 / 12:42 | просмотров: 234

Первое что бросается в глаза, когда первый раз используешь программу это конечно же её облик, внешний вид. Есть вероятность что если пользователю не понравится внешний вид окна, то он не будет пользоваться продуктом. Значит нам, не побоюсь этого слова, программистам нужно как можно лучше, удобнее, понятнее, красивее и приветливее сделать лицо программы. Нужно как можно эффектнее преподнести программу. С самого первого появления Windows окна получили прямоугольный стандарт и все User Control’ы

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 713

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 5404

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 8812

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 2384

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Перекодировка текста из DOS в Windows и обратно
Дата добавления: 31.07.2006 / 12:31 | просмотров: 1798 | платформа: VB

Как запустить процесс и дождаться его завершения?
Дата добавления: 24.03.2007 / 12:12 | просмотров: 1487 | платформа: VB .NET

Как удалить все HTML-теги из текста?
Дата добавления: 24.03.2007 / 12:41 | просмотров: 1965 | платформа: VB .NET

Как проверить корректность E-Mail?
Дата добавления: 17.08.2006 / 18:18 | просмотров: 2046 | платформа: VB

Как узнать, в какой папке находится приложение?
Дата добавления: 01.08.2006 / 20:29 | просмотров: 1468 | платформа: VB

Как получить имя пользователя?
Дата добавления: 24.03.2007 / 12:20 | просмотров: 1200 | платформа: VB .NET

Как получить параметры командной строки?
Дата добавления: 04.08.2006 / 09:20 | просмотров: 2110 | платформа: VB

Как показать сообщение?
Дата добавления: 16.08.2006 / 23:31 | просмотров: 1737 | платформа: VB

Как заблокировать/разблокировать любое окно?
Дата добавления: 31.07.2006 / 12:52 | просмотров: 1624 | платформа: VB

Получение многоразрядного числа2
Дата добавления: 31.07.2006 / 12:33 | просмотров: 1294 | платформа: VB

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Windows: "Коврик выполнил недопустимую операцию и будет свернут..."

Рейтинг: 244
Всего голосов: 393