Головна сторінка Випадкова сторінка
КАТЕГОРІЇ:
АвтомобіліБіологіяБудівництвоВідпочинок і туризмГеографіяДім і садЕкологіяЕкономікаЕлектронікаІноземні мовиІнформатикаІншеІсторіяКультураЛітератураМатематикаМедицинаМеталлургіяМеханікаОсвітаОхорона праціПедагогікаПолітикаПравоПсихологіяРелігіяСоціологіяСпортФізикаФілософіяФінансиХімія
Part One 57 страница
Дата добавления: 2015-08-30; просмотров: 505
|
|
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 ):
6 Установите режим конструирования и сохраните форму.
Функция InputBox$
Кроме нажатия кнопок при выборе альтернативы, пользователь часто должен вводить какие-то данные. Для этого используется функция InputBox$:
InputBox$ (Prompt, Title, Default, Left, Top)
· Prompt – строка сообщение, отображаемое в окне.
· Title – заголовок окна.
· Default – начальное значение, отображаемое в текстовом окне(области вводаf)
· Left –расстояние от левой границы экрана до текстового окна.
· Top – расстояние от верхней границы экрана до текстового окна.
При использовании функции InputBox$ в окне всегда появляются две кнопки – Ok и Cancel.
| <== предыдущая лекция | | | следующая лекция ==> |
| Part One 56 страница | | | Part One 58 страница |