6.2.2. Встроенные диалоговые окна
Вывод сообщений. Функция MsgBox
Диалоговое окно, создаваемое функцией MsgBox, служит для вывода на экран сообщения программы и получения от пользователя простой реакции на это сообщение в виде щелчка по одной из кнопок окна. В простейшем случае эта функция вызывается как процедура. Например, нижеприведенному вызову соответствует окно, показанное на рис. 6.11:
MsgBox "Сегодня на календаре" & Date
Рис. 6.11. Пример окна сообщений
После щелчка по кнопке ОK вызов функции завершится, и выполнение программы возобновится с оператора, стоящего непосредственно за этим вызовом.
Диалоговое окно, выводимое функцией MsgBox, можно обогатить несколькими кнопками, чтобы пользователь мог указать с их помощью направление дальнейшего вычисления, а также присоединить к нему контекстную справку. В общем случае вызов MsgBox имеет вид:
MsgBox(prompt [, buttons ][, title ][, helpfile, context]).
Здесь параметр prompt (сообщение) – строковое выражение, значение которого выводится в окне. Его максимальная длина не должна превышать 1024 символов. Разбиение на строки в этом выражении можно производить, используя символ возврата каретки (Chr(13)), символ перевода строки (Chr(10)) или их комбинацию (Chr(13) & Chr(10)). Строковое выражение title (заголовок) задает заголовок окна. Если его нет, заголовком становится имя приложения. Параметры helpfile (файл справки) и context (контекст) должны присутствовать (или отсутствовать) вместе. Первый из них – имя файла, содержащего справку, которая будет выведена при нажатии клавиши F1, а второй – числовое выражение, задающее номер темы со справкой в этом файле.
Числовой параметр buttons (кнопки) задает виды командных кнопок, помещаемых в окне, кнопку, выбираемую по умолчанию, и модальность диалогового окна. Он получается как сумма кодов соответствующих кнопок и свойств. Коды кнопок и других свойств окна функции MsgBox приведены в табл. 6.1. Явно не заданный, этот параметр считается равным 0.
Таблица 6.1. Коды для формирования параметра buttons
Имя константы |
Код |
Описание |
Коды наборов командных кнопок |
||
vbOKOnly |
0 |
Только кнопка ОК (Готово) |
vbOKCancel |
1 |
Кнопки ОК и Cancel (Отказ) |
vbAbortRetryIgnore |
2 |
Кнопки Abort (Прервать), Retry (Продолжить) и Ignore (Игнорировать) |
vbYesNoCancel |
3 |
Кнопки Yes (Да), No (Нет) и Cancel |
vbYesNo |
4 |
Кнопки Yes и No |
vbRetryCancel |
5 |
Кнопки Retry и Cancel |
Коды пиктограмм |
||
vbCntical |
16 |
Важное сообщение (крестик в круге) |
vbQuestion |
32 |
Запрос (вопросительный знак) |
vbExclamation |
48 |
Предупреждение (восклицательный знак) |
vbInformation |
64 |
Информационное сообщение (i в круге) |
Кнопка, выбранная по умолчанию |
||
vbDefaultButton1 |
0 |
Первая кнопка |
vbDefaultButton2 |
256 |
Вторая кнопка |
vbDefaultButton3 |
512 |
Третья кнопка |
vbDefaultButton4 |
768 |
Четвертая кнопка |
Модальность диалога |
||
vbApplicationModal |
0 |
Модален относительно приложения |
vbSystemModal |
4096 |
Модален относительно системы |
Диалоговое окно модально относительно приложения, если для продолжения работы в текущем приложении пользователь должен закончить работу в этом окне (ответить на сообщение). Модальность относительно системы означает, что все приложения будут приостановлены до завершения работы в данном окне.
Может показаться странным, что константа vbDefaultButton4 указывает на четвертую кнопку, хотя максимальное количество кнопок, определяемых кодами от 0 до 5, – три. Дело в том, что некоторые приложения (например, Excel) при наличии параметров helpfile и context могут автоматически добавить в окно кнопку справки Help, вызывающую окно справки.
Результирующее значение параметра buttons получается как сумма кодов по одному из каждой группы. Например, значение 36 = 4 + 32 = vbYesNo + vbQuestion означает, что в окне будет пиктограмма с вопросительным знаком и две кнопки Yes и No, причем первая из них будет считаться выбранной, если пользователь щелкнет по ней кнопкой мыши или нажмет клавишу Enter.
Как узнать, какую кнопку выбрал пользователь? Присвоить значение функции MsgBox некоторой целочисленной переменной и проверить его. Возвращаемые MsgBox значения приведены в табл. 6.2.
Таблица 6.2. Коды, возвращаемые функцией MsgBox
Имя константы |
Значение |
Нажатая кнопка |
vbOK |
1 |
OK |
vbCancel |
2 |
Cancel |
vbAbort |
3 |
Abort |
Окончание табл. 6.2 |
||
Имя константы |
Значение |
Нажатая кнопка |
vbRetry |
4 |
Retry |
vblgnore |
5 |
Ignore |
vbYes |
6 |
Yes |
vbNo |
7 |
No |
Если в окне есть кнопка Cancel, нажатие клавиши Esc завершает работу в окне и возвращается тот же код vbCancel, что и при выборе кнопки Cancel.
В следующем примере создается окно с сообщением об ошибке и вопросом о продолжении вычисления. В нем пиктограмма важного сообщения и кнопки Yes и No, причем вторая – кнопка, выбираемая по умолчанию. Файл со справкой называется ERRORS.HLP, а номер контекстной справки в этом файле равен 200.
Последовательность создания окна следующая:
Dim Msg As String, MyString As String
Dim Btns As Integer
Dim Title As String, Help As String
Dim NmbCont As Integer, Result As Integer
Title = " Вы ввели неверные данные !" ' заголовок окна
Msg = "Будем продолжать работу ?" ' сообщение
' кнопки и свойства
Btns = vbYesNo + vbCritical + vbDefaultButton2
Help = "ERRORS.HLP" ' имя файла со справкой
NmbCont = 200 ' номер темы
' Вывод сообщения.
Result = MsgBox(Msg, Btns, Title, Help, NmbCont)
If Result = vbYes Then ' пользователь нажал кнопку Yes
MyString = "Да" ' действия по продолжению работы
Else ' пользователь нажал кнопку No
MyString = "Нет" ' действия по прекращению работы
End If
При этом вызове на экране появится окно, представленное на рис. 6.12.
Рис. 6.12. Сообщение о неверных данных
Окно ввода данных. Функция InputBox
Окно, создаваемое функцией InputBox, предназначено для ввода строки и содержит однострочное поле ввода, сообщение и кнопки ОK и Cancel. При выборе кнопки ОК (или нажатии клавиши Enter) строка, введенная пользователем в поле ввода, передается в программу, щелчок кнопки Cancel (нажатие клавиши Esc) означает отказ от ввода – InputBox возвращает пустую строку.
Синтаксис вызова функции InputBox:
InputBox(prompt [, title] [,default] [, xpos] [, ypos]
[, helpfile, context])
Здесь параметры prompt (сообщение), title (заголовок), helpfile и context имеют тот же смысл, что и для функции MsgBox. Числовое выражение xpos задает расстояние по горизонтали левой границы окна от левой границы экрана. Если его нет, окно центрируется по горизонтали. Ypos – расстояние верхней границы окна от верхней границы экрана. Если его нет, окно центрируется по вертикали.
В следующем примере в окно функции InputBox пользователь должен ввести дату рождения. Далее она проверяется. Если она в интервале от 01.01.1900 до 01.01.1985, запрашивается имя пользователя еще одним вызовом функции InputBox, иначе выдаются информационные сообщения с помощью функции MsgBox. Так как возвращаемое при первом вызове функции InputBox значение – строка, для его преобразования в дату применяется функция DateValue (для преобразования вводимых строк в числовые значения используется функция Val). На рисунках 6.13 – 6.15 представлен один из возможных диалогов.
Процесс введения даты рождения и ее проверки следующий:
Sub exInput()
Dim Msg As String, Title As String, Name As String
Dim Birthday As Date
Msg = "Введите, пожалуйста, " & Chr(13) & "дату своего рождения"
Title = "Окно для ввода даты"
' Вывод окна для ввода даты в позицию (1500,1000):
Birthday = DateValue(InputBox(Msg, Title, , 1500, 1000))
' Проверка даты:
If Birthday < #01/01/1900# Then
MsgBox "Вы выглядите гораздо моложе! ", VbExclamation
ElseIf Birthday > #01/01/1981# Then
MsgBox "Эта программа не для детей до 16! ", VbExclamation
Else ' Дата корректна. Запрос имени пользователя
Name = InputBox("Здравствуйте! Как Вас зовут?", "Знакомство")
End If
MsgBox "Добрый день, " & Name, VbExclamation, "Проверка ввода"
End Sub
Рис. 6.13. Окно для ввода даты
Рис. 6.14. Окно для ввода имени
Рис. 6.15. Результат обработки ввода