Встроенные диалоговые окна
В Visual Basic используются встроенные диалоговые окна: окно ввода - InputBox имеет поле для ввода информации, а окно сообщений - MsgBox выводит сообщения для пользователя.
Окно ввода - функция InputBox
Функция InputBox выводит на экран диалоговое окно, содержащее сообщение и поле ввода.
Рис.28. Окно ввода - функция InputBox
Функция InputBox при нажатии кнопки ОК возвращает строку введенную пользователем в поле ввода, при нажатии кнопки Cancel возвращает пустую строку.
Упрощенный синтаксис функции:
InputBox(Prompt [, Title] [, Default])
где
Prompt – приглашение, отображаемое в диалоговом окне. Может содержать несколько строк. Для разделения строк используются символы chr(13) и chr(10)
Title - заголовок, отображаемый в строке заголовка диалогового окна. Если этот параметр опущен, то в строку заголовка помещается имя приложения;
Default – строка по умолчанию, возвращаемая функцией, если пользователь не введет другую строку.
Prompt, Title, Default –параметры типа String.
Окно сообщений - функция MsgBox
Функция MsgBox выводит на экран диалоговое окно, содержащее сообщение. При закрытии окна функция возвращает значение типа Integer, указывающее, какая кнопка была нажата, например, vbOK, vbCancel, vbAbort, vbYes, vbNo.
Рис. 29. Окно сообщений - функция MsgBox
Упрощенный синтаксис функции:
MsgBox(Prompt [, Buttons] [, Title])
где
Prompt – приглашение, отображаемое в диалоговом окне.
Buttons - числовое выражение, представляющее сумму констант-атрибутов, которые указывают тип отображаемых кнопок, тип используемого значка, основную кнопку, модальность окна и др. Значение по умолчанию параметра Buttons равно нулю.
Title - заголовок, отображаемый в строке заголовка окна.
Prompt, Title – параметры типа String, Buttons – константа.
Константы параметра Buttons
Параметр Buttons задается в виде суммы констант:
Константа1+ Константа2 +Константа3+ДопКонстанты
Константа1 |
Значение |
Константа2 |
Значение |
|
VbOKOnly |
0 |
VbCritical |
16 |
|
VbOKCancel |
1 |
VbQuestion |
32 |
|
VbAbortRetrylgnore |
2 |
VbExclamation |
48 |
|
VbYesNoCancel |
3 |
VbInformation |
64 |
|
VbYesNo |
4 |
|
||
VbRetryCancel |
5 |
|
||
Константа3 указывает какая кнопка будет иметь фокус:
VbDefaultButtonl = 0 - первая, 256 - вторая, 512 - третья, 768 – четвертая.
Отметим следующие значения констант ДопКонстанты:
VbSystemModal - делает окно модальным для операционной системы,
VbMsgBoxSetForeground - делает окно фоновым.
Пример использования функции MsgBox для подтверждения закрытия формы.
Private Sub Form_QueryUnload(Cancel As Integer,UnloadMode As Integer)
If MsgBox(Msg,vbQuestion+vbYesNo, Me.Caption)=vbNo Then Cancel=True
End Sub