Программирование на Visual Basic

visual basic открытие файла

Как я и обещал в этом уроке мы научимся отрывать текстовые документы типа .ТХТ или .INI. Это совершенно несложно и практически не отличается от предыдущего урока, ну может быть только самую малость =)...

Нам понадобится:

  1. Форма - Form1
  2. Текстовое поле - Text1
  3. Кнопка - OpenFile
  4. Компонент - Microsoft Common Dialog Control 5.0 - Cd1

Теперь изменим некоторые свойства:

  1. У Text1 - свойство MultiLine делаем True
  2. Cd1 - в свойстве Filter пишем "Текстовый документ|*.txt"

 

Private Sub OpenFile_Click()" при ошибке идти к error1On Error GoTo error1" открываем стандартное окно открытия документа cd1.ShowOpen" открываем документ, выбранный в окне открытия, для вставкиOpen cd1.filename For Input As #1" вставляем текст из выбранного документа
Text1.Text = Input(LOF(1), 1)" закрываем документ, что бы он был доступен другим приложениямClose" описание ошибки" при любой ошибке ничего не делатьerror1: If Err > 0 ThenEnd IfEnd Sub

Теперь домашнее задание =), совместить последние два урока и построить простенький блокнот. Если уж мозги совсем не хотят работать, то могу подсказать, что отчистить текстовое поле можно так - text1.text = "". Жду ваших работ ! Скачать этот урок, вы так же можете здесь .
Hosted by uCoz