Работа с файлами visual basic

В этом уроке мы разберем, как сохранять текст из текстового поля или из Label"а. В следуйщем уроке вы научитесь открывать текст и тогда уже можно делать свой "Блокнот" =). Как его делать мы разберем позднее, в каких-нибудь следующих уроках. А пока сохранение текста. Для этого нам пнадо добавить на форму (Form1) текстовое поле Text1 и кнопку c именем SaveText. У текстового поля делаем свойство MultiLine = True, чтобы текст можно было вводить не в одну строку, а хоть восколько. Теперь добавим к проекту компонент Microsoft Common Dialog Control. Подключение компонента:

Project-> Components...-> Microsoft Common Dialog Control 5.0. Если у вас 6 Visual Basic, то у компонента в конце не 5.0, а 6.0 ! Но будет ли это работать я не знаю, т.к. у меня 5 VB. Этому компоненту дадим имя cd1. У него есть свойство Filter, так вот там пишем Текстовые документы|*.txt. С приготовлениями покончено, теперь приступим к коду:

Private Sub Savetext_Click()" здесь обрабатываем ошибку On Error GoTo error1 " открытие окна выбора места сохранения текста (рис.1) Сd1.ShowSave " открываем(создаем) пустой(или существующий) документ Open Cd1.filename For Output As #1 " теперь в открытый документ пишем все, что в Text1 Print #1, Text1.Text " закрываем документ, что бы он не был занят для других приложений Close " если есть ошибка, то ничего не делаем Error1: If Err <> 0 Then End If End Sub

Рис.1 - Окно сохранения