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

    Приведем пример использования окон сообщений. В результате действия приведенной ниже процедуры ТестОкон появится диалоговое окно Пример окна ввода с полем ввода (рисунок 1).

Рис.1. Диалоговое окно Пример окна ввода

    Следуя приглашению в этом диалоговом окне, введем в поле ввода имя, например Андрей. Нажмем кнопку OK.

    На экране отобразится диалоговое окно пример окна сообщения с текстом приветствия (рисунок 2).

Рис.2. Диалоговое окно Пример окна сообщения

    Если пользователь не введет имя в поле ввода диалогового окна пример окна ввода или нажмет кнопку Отмена, то компьютер выразит свое неудовлетворение действиями пользователя отображением диалогового окна Еще один пример окна сообщения (рисунок 3).

Рис.3. Диалоговое окно Еще один пример окна сообщения

    Приведем текст процедуры.

Private Sub ТестОкон()
  'Описание переменной
  Dim ИмяКлиента As String
  ' Ввод имени пользователя
  ИмяКлиента = InputBox("Введите ваше имя", "Пример окна ввода")
  ' Реакция программы на ввод имени пользователя
  If ИмяКлиента <> "" Then
    MsgBox "Привет, " & ИмяКлиента, vbInformation, _
      "Пример окна сообщения"
  Else
    MsgBox "Невежа, ты забыл ввести свое имя " & ИмяКлиента, _
      vbExclamation, "Еще один пример окна сообщения"
  End If
End Sub

    На следующем шаге мы рассмотрим еще один пример.

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