Информатика VBA. Учебное пособие по дисциплинам Информатика иИнформационные технологии
 Скачать 1.05 Mb.
|
|
Приложение Д Встроенные константы VBA функции MsgBox VBA предоставляет несколько внутренних констант (intrinsic constants ), называемых также предопределенными константами (pre- defined constants ). Внутренняя константа – это именованная констан- та, которая была определена разработчиками VBA. Внутренние кон- станты, определяемые VBA, все начинаются с букв vb для указания того, что они определяются языком Visual Basic for Applications (или Visual Basic ). Перечень встроенных константы для функции MsgBox приведен в таблице Д.1. Таблица Д.1– Встроенные константы для функции MsgBox Константа Числовое значение Назначение vbOKOnly 0 Отображает только кнопку OK; то же са- мое происходит, если не задан аргумент Buttons vbOKCancel 1 Отображает кнопки OK и Отмена (OK, Cancel) vbAbortRetryIgnore 2 Отображает командные кнопки Стоп, По- втор, Пропустить( Abort, Retry, Cancel) vbYesNoCancel 3 Отображает кнопки Да, Нет и Отмена (Yes, No, Cancel) vbYesNo 4 Отображает кнопки Да и Нет (Yes, No) vbRetryCancel 5 Отображает кнопки Повтор и Отмена (Retry, Cancel) vbCritical 16 Отображает в диалоге значок крити- ческого предупредительного сообщения (Critical Message) Windows (красный кру- жок) 130 Продолжение таблицы Д.1 Константа Числовое значение Назначение vbQuestion 32 Отображает значок запроса (Query icon) Windows ("?"); обычно используется, чтобы задать пользователю очень важный вопрос или выдать предупредительное со- общение, требующее ответа vbExclamation 48 Отображает значок ("!") предупреж- дения (Warning Message); обычно исполь- зуется для отображения важной информа- ции или предупреждения, не требующего ответа vbInformation 64 Отображает значок ("i") информации (Information Message); обычно использу- ется для отображения важной информа- ции, кроме предупреждения vbDefaultButton1 128 Первая командная кнопка в диалоговом окне является кнопкой по умолчанию vbDefaultButton2 256 Вторая командная кнопка в диалоговом окне является кнопкой по умолчанию vbDefaultButton3 512 Третья командная кнопка в диалоговом окне является кнопкой по умолчанию vbDefaultButton4 748 Четвертая командная кнопка в диалоговом окне является кнопкой по умолчанию Результатом функции MsgBox является код нажатой пользова- телем световой кнопки диалогового окна. Числовые значения и на- 131 именования внутренних констант VBA, возвращаемые функцией MsgBox , приведены в таблице Д.2. Таблица Д.2– Возвращаемые значения-константы функции MsgBox Константа Числовое значение Означает, что пользователь выбирает кнопку vbOK 1 Да (OK) vbCancel 2 Отмена (Cancel) vbAbort 3 Стоп (Abort) vbRetry 4 Повтор (Retry) vbIgnore 5 Пропустить (Ignore) vbYes 6 Да (Yes) vbNo 7 Нет (No) Функция MsgBox, отображающая окно с сообщением, имеет следующий синтаксис: MsgBox (Prompt [, Buttons] [, Title] [, HelpFile, Context]) Аргумент Prompt представляет любое строковое значение (литерал, константу или переменную). MsgBox отображает эту строку в диало- говом окне; необходимо всегда предоставлять аргумент Prompt, по- скольку это – обязательный аргумент (required argument). Аргумент Buttons (необязательный аргумент) является численным выражением, определяет отображаемые в диалоговом окне кнопки и сообщений. Аргумент Title представляет любое строковое значение (литерал, кон- станту или переменную). MsgBox отображает текст этой строки в строке заголовка диалогового окна. Если опустить аргумент Title, VBA отображает в строке заголовка диалогового окна MsgBox слово "Microsoft Excel" . Аргумент HelpFile – файл справки, Context – раз- дел в справочном файле. Текст сообщения можно заключать в скоб- 132 ки, но скобки необязательны, когда функция MsgBox используется как оператор. Пример использования функции MsgBox Вывести на активный лист рабочей книги Excel диалоговое ок- но, изображенное на рисунке Д.1. Рисунок Д.1 – Вид диалогового окна Текст программы. Sub Пример_MsgBox() Kod = MsgBox ("Вы уже посмотрели, как работает программа?"& _ Chr(13) & Chr(10) & "Завершить работу сейчас?", _ vbYesNo + vbQuestion, _ "Демонстрация в MsgBox многстрочного сообщения") If kod = vbYes Then Unload Me ' выгрузить форму End Sub 133 Учебное издание Карташов Николай Сергеевич Макаров Алексей Иванович Макаров Дмитрий Алексеевич Алгоритмизация и программирование на VBA в Microsoft Excel Учебное пособие Под редакцией проф., к.т.н. Макарова А.И. Оригинал-макет подготовлен редакционно-издательским отделом Университета машиностроения По тематическому плану внутривузовских изданий учебной литературы на 2012 г. Подписано в печать __.__.12. Формат 60х90 1/16 Бумага 80 г/м 2 Гарнитура «Таймс». Ризография. Усл. печ. л. 8.3 Тираж 150 экз. Заказ № Университет машиностроения 107023. г. Москва, Б.Семеновская ул., 38 |