End Sub

End Select

End

End If

Else

End Sub

End If

Else

End Sub

End Select

End If

Else

End Sub

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:

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

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

Dim msg As Byte

If txtChange = True Then

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

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

Text1.Text = ""

txtChange = False

Select Case msg

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

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

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

Text1.Text = ""

txtChange = False

Text1.SetFocus

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

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

Text1.Text = ""

txtChange = False

Text1.SetFocus

7. Для создания процедуры Сохранить_как достаточно следующего кода:

Private Sub itmСохранить_как_Click()

If CDlg1.FileName = "" Then

itmСохранить_Click

ErrMessage:

8. Создадим общую процедуру Выхода из программы. Для этого скопируйте код процедуры Создать в процедуру Выход, а затем измените его.

Код процедуры Выход отличается от процедуры Создать только тем, что вместо строк

Text1.Text = ""

txtChange = False

Text1.SetFocus

используется оператор End, закрывающий программу.

Необходимые комментарии приведены в кавычках.

Private Sub mnuВыход_Click() 'Щелчок мышью по опции меню Выход

Dim msg As Byte

If txtChange = True Then

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

End 'Если в текстовом поле не было изменений, программа завершает работу

Select Case msg

Case 6 'Если в окне MsgBox щелкнули по кнопке <Да>,

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

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

End 'затем работа программы прекращается

Case 7 'Если в окне MsgBox щелкнули по кнопке <Нет>,

'то сохранение требуется и работа программы завершается

9. Сохраните проект.

10. Запустите проект на выполнение. Проверьте функционирование кнопок пункта меню «Файл».

11. Закройте запущенное приложение. Создайте exe-файл приложения с помощью команды File → Make Блокнот.exe.

12. Выйдите из среды Visual Basic.

13. Запустите на выполнение файл Блокнот.exe и проверьте работоспособность всего приложения.

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