Извините, раздел "Вопрос/Ответ" забить не успел... Через час поезд...
Читайте!

Книги

		Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.) Эта книга была задумана как одна из первых книг о .NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр...
		Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.
		Программирование на VB.NET. Учебный курс (цена ~ 119 руб.) Эта книга является вводным курсом по изучению языка программирования Visual Basic .NET. Даны основные принципы объектно-ориентированного программирования в контексте языка VB .NET, поскольку без хорошей подготовки в этой области невозможно в полной мере пользоваться всеми преимуществами VB .NET. Изложены азы всех аспектов языка, которыми должен владеть любой профессиональный разработчик VB .NET
		Автор(ы): Г. Корнелл, Дж. Моррисон, Издательство: Питер, 2002 г.
		VB.NET для разработчиков (цена ~ 125 руб.) Основная задача книги - быстро ознакомить разработчиков Visual Basic с изменениями в .NET Framework. Программисты, использующие Java, C++, Delphi или другие инструменты разработки приложений и интересующиеся Visual Basic или технологией .NET Framework, также найдут эту книгу полезной. Хотя книга посвящена Visual Basic.NET, ее основная цель - продемонстрировать взаимодействие Visual Basic и ...
		Автор(ы): Кит Франклин, Издательство: Вильямс, 2002 г.

Остальные книги о 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


Автора: Шатрыкин Иван и Павел Сурменок.

наверх

---

Вопрос/Ответ

Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

---

Нет вопросов.

---

Ответы:

---

Нет ответов.

---

Можете заполнить эту форму, либо отослать вопрос СЮДА

Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.

Текст сообщения:

Ваше имя
E-mail для ответа

наверх