Встроенные окна диалога
Date: 2015-10-07; view: 490.
VB предоставляет разработчику возможность создавать стандартные диалоговые окна с помощью встроенных функций InputBox и MsgBox.
Для ввода данных используется функция InputBox. Функция возвращает введенное значение. Значение преобразуется к типу выражения, в котором вызывается InputBox.
Синтаксис функции:
InputBox(prompt [, title] [, default] [, xpos] [, ypos]), где
prompt–комментарий к вводу информации;
title – текст заголовка окна;
default-значение по умолчанию для строки ввода;
xpos, ypos-координаты верхнего левого угла окна.
Пример. MyValue = InputBox ("Введите Х", "Заголовок", "0", 500, 300). Вид этого окна приведен на рис. 4.1.
Рис. 4.1. Пример окна InputBox
Функция MsgBox используется для вывода диалогового окна сообщения. Синтаксис ее применения следующий:
MsgBox сообщение [, тип окна] [, заголовок окна], где:
сообщение - текст сообщения;
заголовок окна- текст заголовка диалогового окна;
тип окна -это сумма значений констант, определяющих число и тип кнопок в диалоговом окне, стиль пиктограмм, используемых в окне, и др. спецификации. В таблице 4.1 приведены некоторые допустимые константы для типа окна, их значения и описание. В качестве значения аргумента может указываться сумма значений типа по одному из каждой группы.
Пример. MsgBox «Закончить?», 36, «Пример окна MsgBox».
В данном операторе значение аргумента 36 является суммой 32 и 4 (32 - вывод пиктограммы с вопросительным знаком, 4 - кнопки «Yes» и «No»). Вид этого окна приведен на рис 4.2.
 |
Рис. 4.2. Пример окна MsgBox
Функция MsgBox в зависимости от нажатой кнопки из списка возможных отображаемых кнопок может возвращать значения, приведенные в таблице 4.2. Эти значения можно использовать для анализа результата работы пользователя с окном MsgBox.
Таблица 4.1.
Значения основных констант диалога MsgBox и их описание
| Группа | Значение типа | Константа | Описание |
| vbOKOnly | Выводить только кнопку ОК | ||
| vbOKCancel | Выводить кнопки ОК и Cancel | ||
| vbAbortRetryIgnore | Выводить кнопки Abort, Retry, Ignore | ||
| vbYesNoCancel | Выводить кнопки Yes, Nо, Саnсеl | ||
| vbYesNo | Выводить кнопки Yes, Nо | ||
| vbRetryCancel | Выводить кнопки Retry, Саnсеl | ||
| vbCritical | Выводить пиктограмму "Стоп" | ||
| vbQuestion | Выводить пиктограмму "?" | ||
| vbExclamation | Выводить пиктограмму "!" | ||
| vbInformation | Выводить пиктограмму информации | ||
| vbDefaultButton1 | Кнопка по умолчанию - первая | ||
| vbDefaultButton2 | Кнопка по умолчанию - вторая | ||
| vbDefaultButton3 | Кнопка по умолчанию - третья | ||
| vbApplicationModal | Программное ведущее диалоговое окно | ||
| vbSystemModal | Системное ведущее диалоговое окно |
Таблица 4.2.
Константы, возвращаемые диалогом MsgBox
| Константа | Значение | Выбираемая кнопка |
| VbOK | OK | |
| VbCancel | Cancel | |
| VbAbort | Abort | |
| VbRetry | Retry | |
| VbIgnore | Ignore | |
| VbYes | Yes | |
| VbNo | No |
Ниже приводится полный текст программы (листинг) решения квадратного уравнения с использованием встроенных диалоговых окон (рис. 4.3).
'Решение квадратного уравнения'
| <== previous lecture | | | next lecture ==> |
| Комбинированный список | | | Описание задачи |