Схема алгоритма
2). Следующая программа выводит сообщение в диалоговом окне о нажатой кнопке
Public Sub КнопкиДиалОкон3()
Dim Сообщение As String, Кнопка As Integer
'В переменной Сообщение задается структура диалогового окна
Сообщение = vbYesNoCancel + vbQuestion + vbdefaultButtonl
'В переменную Кнопка вводится целое число, возвращаемое МsgBox при нажатии кнопки
Кнопка = MsgBox("Выбираете Да, Нет или Отмена?", Сообщение, " КнопкиДиалОкон ")
'В зависимости от значения переменной Кнопка,
'на экране отображается соответствующее сообщение
Select Case Кнопка
Case vbYes
MsgBox "Выбрали кнопку Да", vbInformation, " КнопкиДиалОкон "
Case vbNo
MsgBox "Выбрали кнопку Нет", vbInformation, " КнопкиДиалОкон "
Case vbCancel
MsgBox "Выбрали кнопку Отмена", vbInformation, " КнопкиДиалОкон "
End Select
End Sub
В этой программе используется Оператор выбора Select Case
Его синтаксис:
Select Case выражение
[Case списокВыражений 1
[ инструкции 1 ]]
……………………………
[Case списокВыражений n
[ инструкции n ]]
[Case Else
[ инструкции Else ]] 1 | 2 | 3 | Поиск по сайту:
|