|
Функция MsgBox |
|
|
Функция MsgBox | | Синтаксис MsgBox(prompt[, buttons] [, title] [, helpfile, context]) | Выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия кнопки пользователем, а затем возвращает значение типа Integer, указывающее, какая кнопка была нажата. | Параметры Наименование | Описание | Prompt | Обязательный. Строковое выражение, отображаемое как сообщение в диалоговом окне. Максимальная длина строки prompt составляет приблизительно 1024 символов и зависит от ширины используемых символов. Строковое значение prompt может содержать нескольких физических строк. Для разделения строк допускается использование символа возврата каретки (Chr(13)), символа перевода строки (Chr(10)) или комбинацию этих символов (Chr(13) & Chr(10)) |
Buttons | Необязательный. Числовое выражение, представляющее сумму значений, которые указывают число и тип отображаемых кнопок, тип используемого значка, основную кнопку и модальность окна сообщения. Значение по умолчанию этого аргумента равняется 0. Аргумент может принимать одно из следующих значений:
vbOKOnly |
0 |
Отображается только кнопка
"OK". |
vbOKCancel |
1 |
Отображаются кнопки "OK"
и "Отмена" (Cancel). |
vbAbortRetryIgnore |
2 |
Отображаются кнопки "Прервать"
(Abort), "Повторить" (Retry) и "Пропустить"
(Ignore). |
vbYesNoCancel |
3 |
Отображаются кнопки "Да"
(Yes), "Нет" (No) и "Отмена" (Cancel). |
vbYesNo |
4 |
Отображаются кнопки "Да"
(Yes) и "Нет" (No). |
vbRetryCancel |
5 |
Отображаются кнопки "Повторить"
(Retry) и "Отмена" (Cancel). |
vbCritical |
16 |
Используется значок "Критическое
сообщение". |
vbQuestion |
32 |
Используется значок "Предупреждающий
запрос". |
vbExclamation |
48 |
Используется значок "Предупреждение". |
vbInformation |
64 |
Используется значок "Информационное
сообщение". |
vbDefaultButton1 |
0 |
Основной является первая
кнопка. |
vbDefaultButton2 |
256 |
Основной является вторая
кнопка. |
vbDefaultButton3 |
512 |
Основной является третья
кнопка. |
vbDefaultButton4 |
768 |
Основной является четвертая
кнопка. |
vbApplicationModal |
0 |
Модальное окно на уровне
приложения: чтобы продолжить работу с
текущим приложением, необходимо
ответить на данное сообщение. |
vbSystemModal |
4096 |
Модальное окно на уровне
системы: все приложения будут
недоступны до тех пор, пока пользователь
не ответит на данное сообщение |
Первая группа значений (0-5) указывает число и тип кнопок, отображаемых в окне диалога, вторая группа (16, 32, 48, 64) задает тип используемого значка, третья (0, 256, 512) определяет кнопку, которая является основной, а четвертая (0, 4096) модальность окна сообщения. При определении значения аргумента buttons следует суммировать не более одного значения из каждой группы.
|
Title | Необязательный. Строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот аргумент опущен, в строку заголовка помещается имя приложения |
Helpfile | Необязательный. Строковое выражение, определяющее имя файла справки, содержащего справочные сведения о данном диалоговом окне. Если этот аргумент указан, необходимо указать также аргумент context |
Context | Необязательный. Числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот аргумент указан, необходимо указать также аргумент helpfile |
| Замечания
Константа |
Значение |
Нажатая кнопка |
vbOK |
1 |
OK |
vbCancel |
2 |
Отмена (Cancel) |
vbAbort |
3 |
Прервать (Abort) |
vbRetry |
4 |
Повторить (Retry) |
vbIgnore |
5 |
Пропустить (Ignore) |
vbYes |
6 |
Да (Yes) |
vbNo |
7 |
Нет (No) |
| Пример использования 'в данном примере функция MsgBox используется для вывода окна
'диалога с сообщением об ошибке и кнопками "Да"
(Yes) и "Нет" (No)
'основной является кнопка "Нет" (No). Значение, возвращаемое функцией
'MsgBox, зависит от того, какая кнопка была нажата пользователем
'предположим, что DEMO.HLP является файлом справки, содержащим
'раздел с номером, равным 1000
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Обнаружена ошибка. Продолжить?" 'сообщение
Style = vbYesNo + vbCritical + vbDefaultButton2 'кнопки
Title = "Пример" 'заголовок
Help = "DEMO.HLP" 'файл справки
Ctxt = 1000 'контекст
'выводит сообщение
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then 'нажата кнопка "Да"
(Yes)
MyString = "Да" 'выполняет действие
Else 'нажата кнопка "Нет" (No)
MyString = "Нет" 'выполняет действие
End If | Дополнительная информация Категория: Функции ввода данных Еще функции: Choose, IIf, InputBox, LoadPicture, LoadResData, LoadResPicture, LoadResString, MsgBox, Switch |
|
|
|
|
|
|
|