Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 177.
| Информационный Канал Subscribe.Ru |
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 177.
|
VBNet
VBMania
Голосование: Голосования сайта VBNet.Ru. Результаты голосований передаются на сайт. Проследите, что есть соединение с интернетом. Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Извините, раздел "Вопрос/Ответ" забить не успел... Через час поезд...
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Конвертировать число в двоичную систему счисления .NET А знаете, как просто перевести число в двоичную систему счисления в .NET? Очень просто! Dim b As Byte b = 55 Dim s As String s = System.Convert.ToString(b, 2) MsgBox (s) наверх Как скачать файл? .NET Как скачать файл? Запросто! Dim wc As New Net.WebClient 'Создаём WebClient 'Создаём поток и BinaryWriter для записи данных в файл Dim fs As New IO.FileStream(Server.MapPath(filename), IO.FileMode.Create) Dim bw As New IO.BinaryWriter(fs) Dim b() As Byte 'Копируем файл в байтовый массив b = wc.DownloadData(URL) 'Пишем байтовый массив в FileStream bw.Write(b) 'Закрываем объекты bw.Close() fs.Close() наверх Работа с текстовой БД Этот пример удачно демонстрирует организацию работы со своей текстовой базой данных. В один обычный бытовой текстовый файл можно записать однострочный или многострочный текст. Если придумать оригинальный признак окончания записи, то можно вообще будет записывать любую информацию, например файлы, содержащие все символы из стандартной таблицы. В нашем случае признаком конца записи является chr$(175), который в тексте не встречается и с клавиатуры не набирается. Итак, приступим... Запишем данные из двух текстбоксов в файл и считаем обратно... Расположим на форме две кнопки и два поля текста Command1 - "Чтение" Command2 - "Запись". Txt1 - одно поле Txt2 - второе поле У текстовых полей установите свойство MultiLine = true для многострочности Dim Massiv$(0 To 100), Stroka$ '... ''''чтение данных Private Sub Command1_Click() Dim scet2%, dd% On Error Resume Next Open "text.txt" For Input As #1 Stroka = Input$(LOF(1), 1) Close #1 'инициализация dd = 1: e = 0: scet2 = 0 Erase Massiv 'заполнение массива Massiv() While InStr(e + 1, Stroka, Chr$(175)) > 0 e = InStr(e + 1, Stroka, Chr$(175)) Massiv(scet2) = Mid$(Stroka, dd, e - dd) scet2 = scet2 + 1 dd = e + 3 Wend 'вывод текста по текстбоксам Txt1.Text = Massiv(0) Txt2.Text = Massiv(1) 'обработка ошибок If Err Then MsgBox "Error #" & Err.Number & " = " & Err.Description, vbCritical End Sub ''''запись данныхъ Private Sub Command2_Click() 'Обратите внимание что записываем в файл 'не текстбоксы, а массив да еще в цикле, 'во как!. Массив же изменяем в ходе 'изменения текста. Open "text.txt" For Output As #2 Print #2, Massiv(0) & Chr$(175) Print #2, Massiv(1) & Chr$(175) Close #2 End Sub 'а вот и изменение массива: Private Sub Txt1_Change() Massiv(0) = Txt1.Text End Sub Private Sub Txt2_Change() Massiv(1) = Txt2.Text End Sub наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Автора: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Нет вопросов. Ответы: Нет ответов. Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||
Выпуск подготовили: |
Сурменок Павел | |||||||||||||||
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
