Тема: Встроенные диалоговые окна: InputBox , MsgBo x
МДК 01.02. «Прикладное программирование»
Преподаватель: Белова Н. А.
1. Виды диалоговых окон
- Модальное диалоговое окно
- Немодальное диалоговое окно
2. Функция InputBox
- выводит на экран диалоговое окно, содержащее сообщение, поле ввода и две кнопки Ok и Cancel ; возвращает значение типа String по нажатию кнопки ОК, содержащее текст, введенный в поле ввода; возвращает пустую строку нажатии кнопки Canc el .
- выводит на экран диалоговое окно, содержащее сообщение, поле ввода и две кнопки Ok и Cancel ;
- возвращает значение типа String по нажатию кнопки ОК, содержащее текст, введенный в поле ввода;
- возвращает пустую строку нажатии кнопки Canc el .
Синтаксис
InputBox (Prompt [, Title] [, Default]
[, Xpos] [, Ypos] [, Helpfile, context])
InputBox ("Как Вас Зовут?", "Пример окна ввода"
Пример
Ypos
Title
Prompt
Xpos
Helpfile,context
Default
3. Процедура MsgBox
- выводит на экран диалоговое окно, содержащее сообщение;
- возвращает значение типа Integer , указывающее, какая кнопка была нажата.
Процедура MsgBox удобна для вывода той или иной информации.
Синтаксис
MsgBox Prompt [, Buttons]
[, Title] [, Helpfile , с ontext]
MsgBox "Изучаем VBA!", vbExclamation +
vbOKOnly, "Пример окна вывода"
Title
Prompt
Buttons
Параметр Buttons
Константа
Значение
vbCritical
Значок сообщения
16
vbQuestion
32
vbExclamation
48
vbInformation
64
Константа
VbOK
Значение
Нажатая кнопка
1
VbCancel
OK
VbAbort
2
VbRetry
3
Отмена (Cancel)
Прервать (Abort)
4
VbIgnore
Повторить ( Retry )
5
VbYes
Пропустить ( Ignore )
6
VbNo
Да (Yes)
7
Нет (No)
Dim Ответ As Integer
Ответ = MsgBox(" Завершить работу?", vbYesNo + vbQuestion, " Пример")
If Ответ = vbYes Then
MsgBox " Спасибо за внимание!", vbExclamation
Application.Quit
Else
MsgBox " Выход отменен.", vbInformation + vbOKOnly, " Отмена выхода"
End If