Задание 4. Создание и обработка команд меню Файл. Работа с файлами

В меню «Файл» обычно располагаются команды, отвечающие за загрузку ранее сохраненного текстового или какого-либо другого документа (Открыть), сохранение изменений, внесенных в открытый текстовый документ (новый или ранее созданный), создание нового документа (Создать/Новый).

Постановка задачи.

Запрограммировать работу команд пункта меню «Файл», позволяющих:

· создать новый файл;

· открыть существующий файл;

· сохранить существующий файл;

· выйти из программы.

Ход работы.

1. Структура меню «Файл» была приведена на Рисунке 15.1. Для работы пунктов меню «Файл» необходимо сначала описать переменные. Наберите в начале кода программы (в разделе глобальных объявлений) нижеследующие строки (в кавычках приведены соответствующие комментарии):

Dim txtChange As Boolean 'Переменная txtChange принимает значение True,

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

Dim textString As String 'Переменная содержит строку текста, прочитанную

'из текстового файла оператором Input#

2. Затем наберите две событийные процедуры:

Private Sub Form_Load()

Text1.Text = ""

End Sub

Private SubText1_Change()

txtChange =True 'Переменная txtChange принимает значение True, если

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