ExitSub

End If

‘ Функция Input применяется для построчного чтения символов из файла и вывода их в поле Text2. Text:

‘ Line Input #FileNumber, current_string – считывание строки,

‘ FileNumber - любой номер файла,

‘ current_string – переменная, в которую записывается

‘ считываемая строка;

‘ функцию Input можно применить для чтения определенного

‘ количества символов:

‘ Input (Number, #FileNumber)

‘ Number – число возвращаемых символов или байтов,

‘ FileNumber – любой номер файла;

Open FileName For Input As #1 ‘открытие файла

D oWhile Not ‘EOF (1) – конец файла 1 (FileNumber),

‘ т.е. будет происходить чтение всего файла;

Line Input #1, current_string ‘считывание строки

Text2.Text = Text 2. Text + current_string + vbCrLf

‘ vbCrLf – константа, которая осуществляет переход к новой строке

Loop

Close #1 ‘закрытие файла

‘ если выбран флаг Только чтение

If Check1.Value = 1 Then

Text2.Locked = True ‘запрет редактирования

‘ содержимого текстового файла

Command2. Enabled= False

Else

‘ флаг не выбран

Text2.Locked = False

Command2.Enabled = True

End If

End Sub

‘ щелчок на кнопке “Cохранить”

Private Sub Command2_Click ()

If FileName = “ “ Then Exit Sub

If Dir (FileName) <> “ “ And Check1.Value = 0 Then

Open FileName For Output As # 1 ‘ открытие файла для

‘ сохранения изменений

Print #1, Text2.Text

Close #1

End If

End Sub

‘ инициализация формы

Private Sub Form_Initialize ()

Command2.Enabled = False

Text2.Locked = True

End Sub

‘ нажатие клавиши в поле редактирования

Private Sub Text1_KeyPress (KeyAscii As Integer)

‘ клавиша <Enter>

If KeyAscii = 13 Then Command1.SetFocus