MsgBox(сообщение, число, заголовок)

MsgBox сообщение, число, заголовок

Синтаксис с круглыми скобками для записи вызова функции MsgBox используется, чтобы присвоить возвращаемое значение произвольной переменной:

x = MsgBox("Добро пожаловать!", 20, "Приветствие")

Первый параметр обязателен. Второй числовой параметр указывает, какая картинка и кнопки появятся в диалоговом окне.

Значения числового параметра, определяющего набор кнопок на панели, приведены ниже:

Константа Значение Кнопки

vbOkOnly 0 OK

vbOkCancel 1 OK, Cancel

vbAbortRetryIgnore 2 Abort, Retry, Ignore

vbYesNoCancel 3 Yes, No, Cancel

vbYesNo 4 Yes, No

vbRetryCancel 5 Retry, Cancel

vbDefaultButtonI 0 По умолчанию активна первая слева кнопка

vbDefaultButton2 256 По умолчанию активна вторая слева кнопка

vbDefaultButton3 512 По умолчанию активна третья слева кнопка

vbDefaultButton4 768 По умолчанию активна четвертая слева кнопка

 

Значения числового параметра, определяющего картинку, приведены ниже:

 

 

Константа Значение Описание Картинка

 

vbCritical 16 Важное сообщение Перекрестие

vbQuestlon 32 Вопрос Знак вопроса

vbExclamation 48 Предупреждение Восклицательный знак

vblnformatlon 64 Информационное сообщение Буква "i"

 

Следующие две константы определяют режим работы диалогового окна:

 

Константа Значение Описание

vbApplicationModal 0 Пока пользователь не нажмет кнопку,

работа приложения останавливается

vbSystemModal 4096 Пока пользователь не нажмет кнопку,

работа всей системы останавливается

 

Чтобы использовать одновременно несколько установок, необходимо просто сложить соответствующие значения числового параметра. Например, если требуется вывести картинку с вопросом и две кнопки Yes и No, то следует задать параметр 4 + 32 = 36.

Ниже показаны возвращаемые значения, которые присваиваются переменной intButtonClicked:

 

Константа Значение Нажатая кнопка

VbOK l OK

vbCancel 2 Cancel

vbAbort 3 Abort

vbRetry 4 Retry

vbIgnore 5 Ignore

vbYes 6 Yes

vbNo 7 No

 

Если требуется, чтобы сообщение выводилось в нескольких строках, то следует использовать функцию Chr(13), возвращающую служебный символ перевода каретки в качестве разделителя строк. Например,

MsgBox "Привет!" + Chr(13) + "Для продолжения щелкните на кнопке OK"

 

InputBox -Выводит диалоговое окно с полем ввода данных и двумя кнопками ОК и Cancel (Отмена). Возвращает текст в поле ввода данных, если был щелчок на кнопке OK, или значение Empty, если был щелчок на кнопке Cancel. Возможны две формы вызова:

InputBox(подсказка, заголовок, исходное_значение, x, y)