На этом шаге мы рассмотрим еще один пример использования таких окон.

Приведем еще один пример использования диалоговых окон. Этот пример позволяет отобразить на экране диалоговое окно с тремя кнопками Да, Нет и Отмена и информационным знаком (рисунок 1).

Рис.1. Исходное окно

Клавише Enter назначена функция кнопки Да. По нажатию одной из этих кнопок на экране отображается сообщение, подтверждающее нажатие (рисунок 2).

Рис.2. Демонстрация нажатия кнопки

Текст процедуры.

Sub ТриКнопки()
  Dim Сообщение As String
  Dim Кнопка As Integer
  ' В переменной Сообщение задается структура диалогового окна
  Сообщение = vbYesNoCancel + vbQuestion + vbDefaultButton1
  ' В переменную Кнопка вводится целое число, возвращаемое MsgBox
  ' при нажатии кнопки
  Кнопка = MsgBox("Выбираете Да, Нет или Отмена?", Сообщение, "Еще пример")
  ' В зависимости от значения переменной Кнопка,
  ' на экране отображается соответствующее сообщение 
  Select Case Кнопка
    Case vbYes
    MsgBox "Выбрали Да", vbInformation, "Еще пример"
    Case vbNo
      MsgBox "Выбрали Нет", vbInformation, "Еще пример"
    Case vbCancel
      MsgBox "Выбрали Отмена", vbInformation, "Еще пример"
  End Select
End Sub

Текст этого примера можно взять здесь.

На следующем шаге мы начнем рассматривать инструкции VBA.

Предыдущий шаг Содержание Следующий шаг