Стандартні діалогові вікна
Вікно повідомлень (MsgBox) і вікно введення (InputBox) дозволяють організувати найпростіший діалог із користувачем. Синтаксис вікна введення такий:
Перемінна=InputBox(“текст” , ”заголовок вікна”)
Цей оператор виводить на екран діалогове вікно, що містить текст-повідомлення і поле для введення даних. Очікує введення тексту користувачем і натискання кнопки. Введене значення записується в перемінну. Наприклад,
вартість=InputBox(“Введіть вартість виробу”, “Запит на введення вартості”).
На екран буде виведене таке вікно:
Після натискання кнопки OK значення 12,5 буде записано в перемінна вартість.
Вікно повідомлень MsgBox може визиватися як процедура (тільки для виведення) або як функція (для виведення і прийняття відповіді користувача). Синтаксис виклику процедури такий:
MsgBox повідомлення, кнопки+значки, заголовок вікна
Функція MsgBox виводить на екран діалогове вікно, що містить повідомлення, очікує натискання кнопки користувачем і повертає значення типу Integer, що вказує, яка кнопка була натиснута. Синтаксис виклику функції такий:
кнопка=MsgBox(повідомлення, кнопки+значки, заголовок вікна)
Параметр повідомлення містить текст, що виводиться у вікні діалогу.
Параметр кнопки вказує число і тип відображуваних кнопок у вікні повідомлення. Можливі значення аргументу:
-
Константа
Значення
Відображаються кнопки
vbOKOnly
0
OK
vbOKCancel
1
OK, Отмена
vbYesNoCancel
3
Да, Нет, Отмена
vbYesNo
4
Да, Нет
vbRetryCancel
5
Повторить, Отмена
У залежності від того, яка кнопка натиснута, значення, що повертається може бути таким:
-
Константа
Значення
Натиснута кнопка
vbOK
1
OK
vbCancel
2
Скасування
vbAbort
3
Перервати
vbRetry
4
Повторити
vbIgnore
5
Пропустити
vbYes
6
І
vbNo
7
Немає
Наприклад, оператор
Відповідь=MsgBox(“Ви згодні? ”,vbYesNo+VbQuestion,”Питання”)
Виведе на екран таке вікно, у якому очікується натискання однієї з кнопок:
Параметр значки може приймати такі значення: vbInformation (буква i), vbExclamation (знак оклику), vbQuestion (знак питання), vbCritical (знак останова).
Приклад 3.1. Використання діалогових вікон.
Sub ТестОкон()
Dim Клієнт as String, Відповідь as Integer
Клієнт=InputBox(“Введіть ваше ім'я”,”Приклад вікна введення”)
If Клієнт <>”” Then
MsgBox “Привіт,”& Клієнт, vbInformation, “Приклад повідомлення”
Else
MsgBox “Ви забули ввести своє ім'я”, vbExclamation
End If
Відповідь=MsgBox(“Ви згодні? ”,vbYesNo+VbQuestion,”Питання”)
If Відповідь=vbYes Then
MsgBox “Ви відповіли ТАК”
Else
MsgBox “Ви відповіли НІ ”
End If
End Sub