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

Диалоговые окна MsgBox и InputBox. Примеры.

В Visual Basic 6 существует специальный вид окон — диалоговые. В распоряжении разработчика имеется хорошо развитый инструментарий для их создания. Диалоговые окна бывают двух типов — модальные и немодальные. Модальное диалоговое окно — это окно, из которого нельзя перейти в другое окно, не закрыв текущее. Данный вид диалоговых окон используется для выдачи сообщений о ходе работы приложения, его настройки или ввода каких-либо данных, необходимых для работы. Примером такого диалогового окна в программе Visual Basic является окно About. Модальное диалоговое окно вынуждает пользователя совершать некоторые действия или отвечать на запрос приложения вводом информации или выполнением какого-либо действия.

Немодальное диалоговое окно — это окно, позволяющее перемещать фокус на другое окно или форму без закрытия текущего окна. Данный тип диалоговых окон используется редко. Примером немодального диалогового окна в Visual Basic является окно Find (Поиск), дающее возможность осуществлять поиск нужной информации.

Простейшие из диалоговых окон — это окна сообщений и окна, предназначенные для ввода информации. В дополнение к ним в Visual Basic 6 существует набор более сложных стандартных диалоговых окон для приложений:

• Open (Открыть) — диалоговое окно для поиска в файловой структуре нужного файла;
• Save As (Сохранить как) — для поиска места хранения файла и ввода его имени;
• Font (Шрифт) — для выбора и установки шрифта;
• Color (Цвет) — для выбора цветовой палитры;
• Print (Печать) — для настройки режима печати;
• Help (Справка) — для работы со справочной системой приложения. Рассмотрим эти диалоговые окна более подробно.

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

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

где:

• prompt — текст сообщения в диалоговом окне. Максимальная длина текста 1024 символа. В этот текст можно вставить в качестве разделителей строк перевод каретки Chr(13), перевод строки Chr(lO) или их комбинацию;
• buttons — числовое выражение, которое задает параметры для кнопок управления и значков в диалоговом окне и составлено из констант, указанных в табл. 7.8 и 7.9. Если значение не указано, то по умолчанию присваивается значение 0;
• title — текст заголовка диалогового окна;
• helpfile — ссылка на файл справочной системы;
• context — ссылка на содержание в файле справочной системы.

Необходимо иметь в виду, что для задания нескольких параметров кнопок и значков одновременно, следует просто сложить соответствующие константы.

Для примера введите в командном окне среды проектирования Immediate следующую команду и нажмите клавишу <Enter>:

MsgBox "Приветствуем Вас!", vbYesNo + vbExclamation,"Окно сообщений"

В ответ получите диалоговое окно

Таблица 7.8. Константы параметров для значков диалогового окна сообщения

Значок	Константа	Значение	Тип сообщения
	vbExclamation		Предупреждение
	vbQuestion		Запрос
	vbInformation		Информация
	vbCritical		Ошибка

В диалоговых окнах сообщении можно управлять отображаемыми в окне сообщения кнопками и установкой фокуса на одной из кнопок при открытии окна. Для этого можно использовать константы, приведенные в табл. 7.9.

Таблица 7.9. Константы параметров наличия кнопок в окне сообщения и установки фокуса на кнопку

Константа	Значение	Набор кнопок в диалоговом окне
vbOkOnly		OK
vbOkCancel		OK, Отмена
vbAbortRetryIgnore		Стоп, Повтор, Пропустить
vbYesNoCancel		Да, Нет, Отмена
vbYesNo		Да,Нет
vbRetryCancel		Повтор, Отмена
vbDefaultButton1		Устанавливает фокус на первой кнопке
vbDefaultButton2		Устанавливает фокус на второй кнопке
vbDefaultButton3		Устанавливает фокус на третьей кнопке
vbDefaultButton4		Устанавливает фокус на четвертой кнопке
vbApplicationModal		Назначает модальность приложения. Диалоговое окно будет модальным, то есть требующим обязательного закрытия для перехода в другие окна
vbSystemModal		Назначает модальность системы. Диалоговое окно будет модальным на уровне системы, то есть пока диалоговое окно не закрыто, в любое другое приложение перейти нельзя
vbMsgBoxHelpButton		Добавляет в диалоговое окно кнопку Справка
VbMsgBoxSetForeground		Объявляет диалоговое окно фоновым окном
vbMsgBoxRight		Выравнивает текст в диалоговом окне по правому краю
vbMsgBoxRtIReading	1 048 576	Переворачивает текст для чтения справа налево

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

Таблица 7.10. Значения констант, возвращаемые кнопками окна сообщения

Кнопка	Константа	Значение при нажатии на кнопку
ОК	vb0k
Отмена	vbCancel
Стоп	vbAbort
Повтор	vbRetry
Пропустить	vblgnore
Да	vbYes
Нет	vbNo

Дата добавления: 2014-12-23