Вывод данных в стандартное диалоговое окно
Для вывода различных сообщений используется стандартное диалоговое окно - MsgBox. Вид этого окна может быть различным, но оно всегда включает следующие компоненты:
· текст сообщения
· заголовок
· пиктограмма
· набор кнопок
Диалоговое окно MsgBox можно выводить как процедурой, так и как функцией MsgBox.
Функция выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия кнопки пользователем, а затем возвращает значение типа Integer,указывающее, какая кнопка была нажата.
переменная = MsgBox(текст[, опция][, заголовок][, файл справки, контекст])
Где:
текст – строковое выражение, отображаемое как сообщение в диалоговом окне (максимальная длина 1024 символа);
опция – дополнительная информация. Эта опция представляет собой числовое значение, составленное как сумма значений, которые указывают число и тип отображаемых кнопок, тип используемого значка, основную кнопку. (Значение по умолчанию=0).
опция = Button + Icon + Default (табл. 7.1).
заголовок - строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот аргумент опущен, то в строку заголовка помещается имя приложения.
файл справки – строковое выражение, определяющее имя файла справки, содержащего справочные сведения о данном диалоговом окне. Если этот аргумент указан, необходимо также указать аргумент «контекст».
контекст – числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот аргумент указан, то необходимо указывать аргумент «файл справки».
Таблица 7.1
Константы функции MsgBox
| Константа | Значение | Описание |
| Категория: Button(Кнопки) | ||
| vbOKOnly | Только кнопка OK | |
| vbOKCancel | Кнопки ОК и Отмена | |
| vbAbortRetryIgnore | Кнопки Стоп, Повторить, Пропустить | |
| vbYesNoCancel | Кнопки Да, Нет, Отмена | |
| vbYesNo | Кнопки Да и Нет | |
| vbRetryCancel | Кнопки Повторить, Отмена | |
| Категория: Icon (отображение пиктограммы) | ||
| vbCritical | Критическое сообщение | |
| vbQuestion | Вопрос | |
| vbExclamation | Предупреждение | |
| vbInformation | Информация | |
| Категория:Default (по умолчанию активна кнопка: ) | ||
| vbDefaultButton1 | первая | |
| vbDefaultButton2 | вторая | |
| vbDefaultButton3 | третья | |
| vbDefaultButton4 | четвертая |
Возвращаемое функцией значение позволяет определить, какая кнопка была нажата (см. табл. 7.2).
На рис. 7.1 приведен пример использования процедуры MsgBox для вывода диалогового окна.
Таблица 7.2
Значения, возвращаемые функцией MsgBox
| Константа | Значение | Нажатая кнопка |
| vbOK | OK | |
| vbCancel | Отмена | |
| vbAbort | Стоп | |
| vbRetry | Повторить | |
| vbIgnore | Пропустить | |
| vbYes | Да | |
| vbNo | Нет |
Рис. 7.1. Пример вывода диалогового информационного окна.