End Select

ErrMessage:

End Sub

5. Теперь наберите отдельную процедуру Открыть (команды, обозначающие начало и конец процедуры – Private Sub и End Sub – набирать нужно самостоятельно, т.к. эта процедура существует отдельно, а не формируется автоматически).

Private SubОткрыть()

CDlg1.CancelError =True

On Error GoToErrMessage

CDlg1.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly

CDlg1.Filter = "Text files(*.txt)|*.txt|RTF files(*.rtf)|*.rtf"

CDlg1.ShowOpen 'Этот метод выводит на экран

'диалоговое окно “Open”(Открыть)

OpenCDlg1.FileNameFor Input As#1 'Файл с выбранным именем откры-

'вается для чтения информации

Text1.Text = ""

Do

Line Input#1, textString 'переменная textString содержит

'строку текста, прочитанную из

'текстового файла оператором

'Line Input#

Text1.Text = Text1.Text + textString + Chr(13) + Chr(10)

Loop UntilEOF(1) 'Если достигнут конец файла, то

'файл закрывается, если нет –

'цикл повторяется

Close#1

txtChange =False

ErrMessage:

End Sub

6. Создадим общую процедуру создания файла Создать_Click(). Необходимые комментарии приведены в кавычках.

Private SubitmСоздать_Click()

DimmsgAs Byte

IftxtChange =True Then

msg = MsgBox("Сохранить изменения?", 35, "Блокнот") 'Если в текстовом поле

'были какие-то изменения, появляется окно 'MsgBox

Else

Text1.Text = ""

txtChange =False

End If

Select Casemsg

Case 6 'Если в окне MsgBox щелкнули по кнопке

'кнопке <Да>, т.е. требуется сохранение

CallitmСохранить_Click 'то вызывается процедура сохранения файла

Text1.Text = ""

txtChange =False

Text1.SetFocus

Case 7 'Если в окне MsgBox щелкнули по

'кнопке <Нет>, то сохранение не требуется

Text1.Text = ""

txtChange =False

Text1.SetFocus