Устанавливает режим ожидания нажатия кнопки пользователем, а затем возвращает значение типа integer, указывающее, какая кнопка была нажата.
Синтаксис:
MsgBox (prompt [, buttons] [, title] )
Аргументы:
¾ prompt — Обязательный параметр. Строковое выражение, отображаемое как сообщение в диалоговом окне
¾ buttons — Необязательный параметр. Числовое выражение, представляющее сумму значений, которые указывают число и тип отображаемых кнопок, тип используемого значка, основную кнопку и модальность окна сообщения. Значение по умолчанию этого аргумента равняется 0. Значения констант, определяющих число и тип кнопок используемого значка, приведены в табл.11
¾ title — Необязательный параметр. Строковое выражение, отображаемое в строке , заголовка диалогового окна. Если этот аргумент опущен, в строку заголовка помещается имя приложения
Таблица 11 – Значение констант, определяющее тип и число кнопок, тип значка
Имя Константы | Числовое значение | Отображаются кнопки |
VbOkOnly | ||
VbOkCancel | ||
VbAbortRetryIgnore | ||
VbYesNoCancel | ||
VbYesNo | ||
VbRetryCancel | ||
VbCritical | ||
VbQuestion | ||
VbExclamation | ||
VbInformation | ||
VbDefaultButtob1 | Первая кнопка по умолчанию | |
VbDefaultButtob2 | Вторая кнопка по умолчанию | |
VbDefaultButtob3 | Третья кнопка по умолчанию | |
VbDefaultButtob4 | Четвертая кнопка по умолчанию | |
VbSystemModal | Режим модальности: все программы приостанавливаются до тех пор, пока пользователь не ответит на сообщение |
Значения 0-5 параметра кнопки могут быть просуммированы со значениями 16-64 и 256-4096. В этом случае первые значения определяют состав кнопок диалогового окна, вторы – вид отображаемого в окне значка, а третьи – выбор кнопки по умолчанию.
Например, если в качестве значения параметра указать выражение 3+64+512, то в диалоговом окне будут отображены кнопки Да, Нет, Отмена, значок информирующего значения и по умолчанию будет выбрана кнопка Отмена.
Public Sub qq()
MsgBox "Нажмите любую кнопку", _
vbYesNoCancel + vbInformation + vbDefaultButton3, _
"Контрольный пример"
MsgBox "Нажмите любую кнопку", _
3 + 64 + 512, _
"Контрольный пример"
MsgBox "Нажмите любую кнопку", _
579, _
"Контрольный пример"
End Sub
При написании программ с откликом, когда нужно знать, какая кнопка диалогового окна была нажата (таблица 12), вместо возвращаемых значений удобнее использовать следующие константы VBA, которые делают код программы более читаемым и, к тому же, их легко запомнить.
Таблица 12
Константа | Значение | Нажатая кнопка |
vbOK vbCancel vbAbort vbRetry vbIgnore vbYes vbNo | ОК Отмена (Cancel) Прервать (Abort) Повторить (Retry) Пропустить (Ignore) Да (Yes) Нет (No) |
Пример.
Дата добавления: 2015-08-08; просмотров: 766;