End Sub. Создадим процедуру для открытия файла

Создадим процедуру для открытия файла. Для этого нам понадобится создать процедуру по щелчку на кнопке «Открыть» (процедура itmОткрыть_Click) и отдельная процедура Открыть. Процедура открытия файла должна приводить к открытию диалогового окна Open (Открыть файл).

4. Щелкните в меню по команде «Открыть» и наберите нижеследующий код:

Private Sub itmОткрыть_Click()

Dim msg As Byte

If txtChange = True Then 'Если в текстовом

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

'MsgBox (Рис.15.7)

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

Else

msg = 7

End If

Select Case msg

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

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

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

Call Открыть 'а затем процедура Открыть для открытия файла

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

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

textString = ""

CDlg1.CancelError = True

On Error GoTo ErrMessage

Call Открыть 'и сразу вызывается процедура Открыть для открытия файла