Диалоговые окна

В Visual Basic существует специальный вид окон – диалоговые окна, которые бывают двух типов – модальные и немодальные.

Модальное окно – это окно, из которого нельзя перейти в другое окно, не закрыв текущее. Модальные диалоговые окна используются для выдачи сообщений о ходе работы приложения, его настройки или ввода каких-либо данных, необходимых для работы приложения.

Немодальное диалоговое окно – это окно, позволяющее перемещать управление на другое окно или форму без закрытия текущего окна.

Простейшие из диалоговых окон – это окна сообщений (MsgBox) и окна, предназначенные для ввода информации (InputBox).

Окно сообщения (MsgBox)

Диалоговое окно сообщения не требует проектирования и вызывается из программы командой MsgBox (или создается с помощью функции MsgBox()), которая имеет следующий синтаксис:

MsgBox(prompt [, buttons] [, title] [, helpfile, context]) ,

где

– параметр prompt – обязательный. Эта строка выдается в окне сообщения (максимальная длина текста 1024 символа);

– параметр buttons – необязательный и устанавливает набор кнопок;

– параметр title – текст заголовка окна сообщения;

– параметр helpfile – необязательный, представляет собой ссылку на файл справочной системы;

– параметр context – необязательный, представляет собой ссылку на содержание в файле справочной системы.

Пример:

MsgBox("Вычисления закончены")

Rez = MsgBox("Закончить вычисления?", vbYesNo, "Мой проект") В зависимости от выбора кнопки "Да" или "Нет" диалоговое окно MsgBox возвращает одно из значений, заданных системными константами. Для определения активной кнопки значение переменной Rez анализируется условным оператором If: If Rez = vbYes then End Функция возвращает значение, соответствующее выбранной пользователем кнопке в окне сообщения.

Окно ввода информации (InputBox)

Достаточно часто в диалоговом окне необходимо не только активизировать кнопки выбора действия, но и вводить определенную информацию, которая затем анализируется программой. Для выполнения таких действий можно использовать диалоговое окно ввода информации InputBox.

Функция имеет следующий синтаксис:

InputBox (promt [, title] [, default] [,xpos] [, ypos] [, helpfile, context]) ,

где

– параметр prompt – обязательный. Эта строка выдается в окне сообщения (максимальная максимальная длина текста 1024 символа);

– параметр title – текст заголовка диалогового окна;

– параметр default – строка в текстовом поле. Если параметр отсутствует, строка остается пустой;

– параметр xpos – позиция по вертикали левого верхнего угла диалогового окна относительно левого верхнего угла экрана (по умолчанию присваивается значение, соответствующее середине экрана);

– параметр ypos – позиция по горизонтали левого верхнего угла диалогового окна относительно левого верхнего угла экрана (по умолчанию присваивается значение, соответствующее середине экрана);

– параметр helpfile – необязательный, представляет собой ссылку на файл справочной системы;

– параметр context – необязательный, представляет собой ссылку на содержание в файле справочной системы.

Окно InputBox содержит сообщение о том, какие данные должен ввести пользователь, текстовое поле для ввода данных, две кнопки "ОК" и "Отмена", которые подтверждают или отменяют ввод данных. Если после ввода данных активизируется кнопка "ОК", то значением функции является текст, находящийся в поле ввода, а если – кнопка "Отмена", то значением функции будет пустая строка.

Пример:

Zn1 = InputBox("Ввести значение") На экране появится диалоговое окно следующего вида. При нажатии кнопки "ОК" переменной Zn1 будет присвоено значение из текстового поля.
Zn2 = InputBox("Ввести значение", "Мой проект", 123) Диалоговое окно имеет следующий вид. При нажатии кнопки "ОК" переменной Zn2 будет присвоено значение из текстового поля. Значение 123 – "значение по умолчанию", которое будет отображаться каждый раз при открытии окна.