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

ErrMessage:

End Sub

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

Private Sub Открыть()

CDlg1.CancelError = True

On Error GoTo ErrMessage

CDlg1.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly

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

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

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

Open CDlg1.FileName For Input As #1 'Файл с выбранным именем откры-

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

Text1.Text = ""

Do

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

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

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

'Line Input#

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

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

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

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

Close #1

txtChange = False

ErrMessage:

End Sub

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

Private Sub itmСоздать_Click()

Dim msg As Byte

If txtChange = True Then

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

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

Else

Text1.Text = ""

txtChange = False

End If

Select Case msg

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

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

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

Text1.Text = ""

txtChange = False

Text1.SetFocus

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

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

Text1.Text = ""

txtChange = False

Text1.SetFocus