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

End Select

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

End Sub

End If

Else

End Select

Case Else

skidka = 0

MsgBox "Скидка" & skidka & "%"

MsgBox "Сумма покупки не указана"

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

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

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

Sub Demo_MsgBoxFunction()

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

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

Dim Resp As 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

Аргумент Buttons для MsgBox позволяет задавать количество и тип кнопок, а также наличие или отсутствие в окне сообщения одного из значков Windows для обозначения предупредительного сообщения, сообщения запроса, информационного сообщения и критического предупредительного сообщения. Можно также использовать аргумент Buttons для определения того, какая из отображаемых кнопок (кнопка 1, 2, 3 или 4) является кнопкой по умолчанию в окне сообщения. Каждый раз можно задавать только один тип кнопки, один значок и одну кнопку по умолчанию.

Константа vbYesNoCancelопределяет, что диалоговое окно MsgBox должно содержать три командные кнопки: Да, Нет и Отмена. Константа vbQuestionопределяет, что окно сообщения должно содержать значок сообщения запроса (Query message) Windows. Константа vbDefaultButton2 задает какая командная кнопка 1 (Да), 3 (Нет), 3 (Отмена) в диалоговом окне MsgBox является кнопкой по умолчанию.

Как только пользователь выбирает командную кнопку в окне сообщения, VBA возвращает численное значение, соответствующее выбору пользователя. Результат функции MsgBox присваивается переменной Resp.VBA использует различные значения в зависимости от того, какую командную кноп выбрал пользователь: одно значение для обозначения кнопки Да, другое – для обозначения кнопки Нет и еще одно – для кнопки Отмена. Функция MsgBox может также отображать окна с кнопками Стоп(Abort), Повтор(Retry) и Пропустить(Ignore) в различных комбинациях. Поскольку каждая кнопка имеет свое определенное возвращаемое значение, VBA предоставляет несколько внутренних констант для представления возможных возвращаемых значений функции MsgBox.

Дата добавления: 2014-01-04