Использование MsgBox для обеспечения возможности выбора

При помощи необязательного аргумента Buttons можно использовать VBA-процедуру MsgBox как функцию для получения выбора от пользователя в ответ на сообщения или вопросы, которые отображает программа. Для многих простых вариантов выбора использование функции MsgBox для получения ответа от пользователя является гораздо более легким путем, чем получение текстового ввода с помощью функции InputBox и последующий анализ этого текста для определения того, какой выбор сделал пользователь.

При включении аргумента Buttons с необходимыми круглыми скобкам оператор MsgBox работает подобно функции и отображает окно сообщения, cодержащее различные командные кнопки. MsgBox возвращает численный результат, указывающий, какую командную кнопку выбрал пользователь. Число и тип командных кнопок, отображаемых диалоговым окном MsgBox, задается с помощью аргумента Buttons.

Пример 13. Процедура демонстрирует MsgBox, используемую как функция.

Sub Demo_MsgBoxFunction()

' Процедура демонстрирует MsgBox, используемую как функция

Const mTitle = "Демонстрация кнопок MsgBox"

DimRespAs Integer

Resp = MsgBox("Выберите кнопку", Title:=mTitle, Buttons:= vbYesNoCancel + vbQuestion + vbDefaultButton2)

Select Case Resp

Case Is = vbYes

MsgBox "Вы выбрали кнопку ‘Да’", Title:=mTitle, Buttons:=vbInformation

Case Is = vbNo

MsgBox "Вы выбрали кнопку ‘Нет’", Title:=mTitle, Buttons:=vbInformation

Case Is = vbCancel

MsgBox "Вы выбрали кнопку ‘Отмена’", Title:=mTitle, Buttons:=vbCritical