Функция MsgBox

Функция MsgBox выводит диалоговое окно, содержащее сообщение пользователю. Осуществляется вывод сообщения и значения переменной, свойства объекта; предлагается на выбор нажатие одной из кнопок, код которой запоминается.

Синтаксис функции MsgBox:

MsgBox(prompt[, buttons][,title][,helpfile,context])

prompt — обязательный параметр, строка текста, выводимая в качестве сообщения пользователю, максимальная длина текста — 1024 символа; для разделения строк можно вставлять аналог символов-разделителей Chr(13) — перевод каретки, Chr(10) – заполнитель строки или их комбинации;

buttons – числовой эквивалент типа кнопки, графического значка окна, а также кнопки, используемой по умолчанию. Задается как сумма числовых значений элементов (табл. 13.4);

title – текст заголовка диалогового окна;

helpfile – имя файла справки;

context – число, определяющее номер соответствующего раздела справочной системы.

Функция MsgBox с двумя и более аргументами используется только в выражениях. Если какие-либо аргументы функции отсутствуют, ставятся запятые.

Таблица 13.4

Кнопка	Значение	Описание
VbOKOnly		Кнопка OK
VbOKCancel		Кнопки OK, Отмена
Продолжение таблицы 13.4
vbAbortRetryIgnore		Кнопки Стоп, Повтор, Пропустить
VbYesNoCancel		Кнопки Да, Нет, Отмена
VbYesNo		Кнопка Да, Нет
VbRetryCancel		Кнопка Повтор, Отмена
VbCritical		Кнопка ОК и значок критического сообщения
VbQuestion		Кнопка ОК и значок предупреждения (вопроса)
vbExclamation		Кнопка ОК и значок восклицания
vbInformation		Кнопка ОК и значок информационного сообщения
vbDefaultButton1		Выбор первой кнопки по умолчанию
vbDefaultButton2		Выбор второй кнопки по умолчанию
vbDefaultButton3		Выбор третьей кнопки по умолчанию
vbDefaultButton4		Выбор четвертой кнопки по умолчанию
vbApplicationModal		Модальное окно, пользователь должен ответить на сообщение для продолжения работы
vbSystemModal		Системное модальное окно, приостановка всех приложений до получения ответа от пользователя
vbMsgBoxHelpButton		Кнопка Справки
VbMsgBoxSetForeground		Выводит окно сообщений
vbMsgBoxRight		Текст выровнен вправо
vbMsgBoxRtlReading		Вывод текста справа налево

Пример 4

Запрос на продолжение работы (рис. 13.1). Код нажатой кнопки присвоить переменной Response.

Рис.13.1

Фрагмент программного кода:

Msg = "Продолжить работу?"

button = vbYesNo + vbCritical + vbDefaultButton2

' Критическое сообщение, по умолчанию — кнопка Нет

Title = "Пример функции MsgBox"

Response = MsgBox(Msg, button, Title)

Msgbox Response ’вывод кода нажатой кнопки

В другом варианте использования функции MsgBox значение кода нажатой кнопки не присваивается переменной. Диалоговое окно содержит три кнопки (рис. 13.2).

Рис. 3.2. Диалоговое окно функции Msgbox (3 кнопки)

Фрагмент программного кода:

MsgBox «Строка текста для вывода», vbQuestion + _ vbAbortRetryIgnore, «ОГЛАВЛЕНИЕ»