Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
В меню «Файл» обычно располагаются команды, отвечающие за загрузку ранее сохраненного текстового или какого-либо другого документа (Открыть), сохранение изменений, внесенных в открытый текстовый документ (новый или ранее созданный), создание нового документа (Создать/Новый).
Постановка задачи.
Запрограммировать работу команд пункта меню «Файл», позволяющих:
· создать новый файл;
· открыть существующий файл;
· сохранить существующий файл;
· выйти из программы.
Ход работы.
1. Структура меню «Файл» была приведена на Рисунке 15.1. Для работы пунктов меню «Файл» необходимо сначала описать переменные. Наберите в начале кода программы (в разделе глобальных объявлений) нижеследующие строки (в кавычках приведены соответствующие комментарии):
Dim txtChange As Boolean 'Переменная txtChange принимает значение True,
'если в текстовом поле были какие-то изменения
Dim textString As String 'Переменная содержит строку текста, прочитанную
'из текстового файла оператором Input#
2. Затем наберите две событийные процедуры:
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Text1_Change()
txtChange = True 'Переменная txtChange принимает значение True, если
'в текстовом поле были изменения
Дата публикования: 2014-12-28; Прочитано: 143 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!