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

End Select

End If

Else

End Sub

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

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

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

Dim msg As Byte

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

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

'MsgBox (Рис.15.7)

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

msg = 7

Select Case msg

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

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

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

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

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

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

textString = ""

CDlg1.CancelError = True

On Error GoTo ErrMessage

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

ErrMessage:

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 = ""

Дата добавления: 2014-12-23