Диалоговое окно Еще один пример окна сообщения
Рисунок 11.3. Диалоговое окно Еще один пример окна сообщения
Private Sub ТестОкон()
'
' Описание переменной
Dim ИмяКлиента As String
'
' Ввод имени пользователя
'
ИмяКлиента = InputBox("Введите ваше имя", "Пример окна ввода")
' Реакция программы на ввод имени пользователя
If, ИмяКлиента <> "" Then
MsgBox "Привет, " & ИмяКлиента, vbInformation,
"Пример окна сообщения"
Else
MsgBox "Невежа, ты забыл ввести свое имя " & ИмяКлиента,
vbExclamation, "Еще один пример окна сообщения"
End If
End Sub
Приведем еще один пример использования диалоговых окон. Этот пример позволяет отобразить на экране диалоговое окно с тремя кнопками да, нет и отмена и информационным знаком. Клавише <Enter> назначена функция кнопки да. По нажатию одной из этих кнопок на экране отображается сообщение, подтверждающее нажатие.
Sub ТриКнопки()
Dim Сообщение As String
Dim Кнопка As Integer
'
' В переменной Сообщение задается структура диалогового окна
'
Сообщение = vbYesNoCancel + vbQuestion + vbDefaultButtonl
'
' В переменную Кнопка вводится целое число, возвращаемое MsgBox
' при нажатии кнопки
'
Кнопка= MsgBox("Выбираете Да, Нет или Отмена?", Сообщение, "Еще пример")
'
' В зависимости от значения переменной Кнопка,
' на экране отображается соответствующее сообщение '
Select Case Кнопка Case vbYes
MsgBox "Выбрали Да", vblnformation, "Еще пример" Case vbNo
MsgBox "Выбрали Нет", vblnformation, "Еще пример" Case vbCancel
MsgBox "Выбрали Отмена", vblnformation, "Еще пример"
End Select
End Sub
