Упражнение 5. 1Откройте окно программного кода вашего приложения.
1 Откройте окно программного кода вашего приложения. 2 Добавьте в оператор объявления переменной Dim имя переменной res. 3 В программном коде нашего приложения вместо оператора Msgbox, будем использовать функцию, то есть, запишем: res = MsgBox(D$, 16 + 2, "Ошибка записи") If res = 4 Then
MsgBox "Вставьте новую дискету", 64, "Повтор записи" End If ‘ (Добавленное выделено и подчеркнуто). Оператор MsgBox заменен одноименной функцией, которая возвращает свое значение переменной res. Код трех последних строк определяет, что при нажатии кнопки Повторить (Retry), будет выдано соответствующее сообщение (рис.6) 4. Запустите приложение. После нажатия кнопки повтор во втором диаорговом окне, появится сообщение рис. 6. 5 Для корректного завершения процедуры «записи», в программный код вашего приложения необходимо несколько видоизменить и добавить следующие строки: Dim m as string If res = 4 Then m = "Вставте новую дискету "; m = m + Chr(10) + "Запись продолжить?" res = MsgBox(m, 64 + 4, "Повтор записи") If res = 6 Then End Else MsgBox "Сохраните файл на диске" End End If End If
Как вы наверно заметили, что для этого в программном коде сделаны и небольшие изменения. Вместо оператора сообщений введена функция сообщений, добавлена еще одна кнопка (+ 4). Несколько изменено и содержание сообщения. Внесена возможность альтернативного завершения записи на диске. И по возвращаемому значению функции сообщений (если нажата клавиша “Yes” Да) организовано событие завершения «записи» или ее завершение в альтернативном варианте (Рис. 7):
Функция InputBox$ Кроме нажатия кнопок при выборе альтернативы, пользователь часто должен вводить какие-то данные. Для этого используется функция InputBox$: InputBox$ (Prompt, Title, Default, Left, Top) · Prompt – строка сообщение, отображаемое в окне. · Title – заголовок окна. · Default – начальное значение, отображаемое в текстовом окне(области вводаf) · Left –расстояние от левой границы экрана до текстового окна. · Top – расстояние от верхней границы экрана до текстового окна. При использовании функции InputBox$ в окне всегда появляются две кнопки – Ok и Cancel.
|
6 Установите режим конструирования и сохраните форму.
