Константы

Константы – это данные, значения которых не меняются всё время работы программы (приложения).

Пользовательские константы в VBScript объявляются с помощью ключевого слова Const, например:

Const MyConst=”Это моя константа!”

Const number=45,000098

Кроме того, VBScript поддерживает большое количество встроенных именованных констант (их не нужно дополнительно объявлять в сценарии). Именно для этого и используются в основном константы. В Таблице 2 приведены некоторые из них:

Таблица 2 - Константы для диалоговых окон

Имя	Значение	Описание
vbOkOnly	0	Выводится кнопка OK
vbOkCancel	1	Выводятся кнопки OK и Cancel (Отмена)
vbYesNoCancel	3	Выводятся кнопки Yes (Да), No (Нет) и Cancel (Отмена)
Прочие константы:
vbCr	Chr(13)	Возврат каретки
vbCrLf	Chr(13)&Chr(10)	Возврат каретки и перевод строки
vbNullString	Нулевая строка	Нулевая строка
vbTrue	-1	Логическое значение “истина”
vbFalse	0	Логическое значение “ложь”

Встроенная функция вывода данных MsgBox

Используется для вывода информации в специальном окне. Данную функцию можно использовать следующим образом:

MsgBox Текст[,Кнопки],[Заголовок]

или:

MyVar = MsgBox (Текст[, Кнопки],[ Заголовок])

Текст – обязательный параметр, определяющий текст, который будет показан в диалоговом окне. Для перевода выводимого текста на новую строку в параметр можно вставить константу VBScript vbCrLf

Кнопки – Необязательный целочисленный параметр, определяющий набор кнопок и вид значка диалогового окна. Если его опустить или установить равным «0», VBScript покажет в окне единственную кнопку – ОК.

Заголовок – Необязательный параметр, определяющий текст заголовка диалогового окна. Если он не задан, Windows выводит в заголовке название приложения.

Замечание: Если необязательный параметр не задан, VBScript использует значение по умолчанию. Чтобы опустить необязательный параметр, надо оставить его место между двумя запятыми пустым.

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

Программа 1: MsgBox “Hello, World!”

Данная программа выводит в специальном окне строчку “Hello, World!”, а также кнопку ОК.

Программа 2: number = 123,09

MsgBox number

Данная программа выводит в специальном окне число 123,09, а также кнопку ОК.

Обратите внимание, что в данных двух программах текст мы заключили в двойные кавычки, а переменную – нет.

В Таблице 3 представлены некоторые константы, сумма которых определят вид «значка», а также наличие кнопки диалогового окна, создаваемого с помощью MsgBox.

Таблица 3 – Перечень констант

Константа	Значение	Описание
Группа 1		Появляющиеся кнопки
VbOkOnly	0	Кнопка Ok
VbOkCancel	1	Кнопки Ok и Cancel
VbAbortRetryIgnore	2	Кнопки Abort, Retry и Ignore
VbYesNoCancel	3	Кнопки Yes, No и Cancel
…
Группа 2		Появляющийся значок
VbCritical	16	Критический значок
…
Группа 3		Кнопка выбранная по умолчанию
VbDefaultButton2	256	Вторая кнопка
…
Группа 3		Вывод на экран
VbSystemModal	4096	Окно выводится поверх всех открытых окон

Полный список параметров доступен в Visual Basic Script Reference.Сумма значений констант может быть введена следующим образом:

VbYesNoCancel+VbCritical+VbDefaultButton2+VbSystemModal

Или 3+16+256+4096

Или просто 4371

Все эти способы ввода означают одно и тоже.Проиллюстрируем данный пример следующей программой:

MsgBox "Запустить отладку?",VbYesNoCancel+VbCritical+VbDefaultButton2+VbSystemModal

После запуска программы, на экран будет выведено окно с тремя кнопками (Yes , No, Cancel), со значком критического сообщения, причём активной будет вторая кнопка, окно выводится поверх всех окон.

Если вам необходимо оставить значение по умолчанию введите 0:

MsgBox "Произошла ошибка!"&vbCrLf&"Код ошибки: 120002129",0, "Окно ошибки"

MyVar - означает переменную где будет сохранено возвращаемая функцией информация о нажатой кнопке.

В Таблице 4 представлены некоторые из возвращаемых значений.

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

Пример:

K=MsgBox( "Ответ", vbYesNoCancel+vbcritical+vbDefaultButton2+vbSystemModal, "привет")

Если же значение нажимаемой кнопки не является важным, функцию следует вызывать следующим образом:

Msgbox "Ответ",vbyesnocancel+vbcritical+vbdefaultbutton2+vbSystemmodal,"привет"

То есть нужно опустить скобки.

Таблица 4 – Перечень возвращаемых значений

Константа	Значение	Нажатая кнопка
VbOk	1	Ok
VbCancel	2	Cancel
vbAbort	3	Abort
vbRetry	4	Retry
vbIgnore	5	Ignore
vbYes	6	Yes
vbNo	7	No