Самоучитель VBA


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



Рисунок 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









Начало  Назад  Вперед