Диалоговые окна ввода вывода Функция MsgBox
Используется для отображения окна сообщения. Синтаксис
MsgBox ( prompt[, buttons] [, title])
Функция имеет следующие аргументы:
Имя |
Описание |
prompt |
Обязательный аргумент.Представляет собой строку сообщения, которое будет выводится в окно диалога. Максимальная длина – приблизитель-но1024 символа ( в зависимости от кегля). Если сообщение состоит из нескольких строк, необходимо в качестве разделителя вставлять строковую константу vbCrLf (перевод каретки и переход на новую строку). "Это первая строка" & vbCrLf & "это вторая строка" |
buttons |
Необязательный. Сумма символьных констант, определяющих количество и тип кнопок, иконку, кнопку, выделенную по умолчанию. Если параметр опущен, его значение по умолчанию равно 0. |
title |
Необязательный. Строка заголовка окна сообщения. По умолчанию выводится имя приложения. |
Н
апример,
вызов функции
MsgBox( "Это окно сообщения", vbOkOnly , "Заголовок")
приведет к отображению этого окна.
Количество и типы кнопок в аргументе buttons определяются следующими константами
Константа |
Значение |
Описание |
OKOnly |
0 |
Только кнопка OK |
OKCancel |
1 |
Показать кнопки OK и Cancel |
AbortRetryIgnore |
2 |
Показать кнопки Abort, Retry, Ignore |
YesNoCancel |
3 |
Показать кнопки Yes, No и Cancel |
YesNo |
4 |
Показать кнопки Yes и No |
RetryCancel |
5 |
Показать кнопки Retry и Cancel |
Выводимая в окне сообщения иконка в аргументе buttons определяются следующими константами
Critical |
16 |
|
Question |
32 |
|
Exclamation |
48 |
|
Information |
64 |
|
Выделенная по умолчанию кнопка в аргументе buttons определяются следующими константами
vbDefaultButton1 |
0 |
Первая кнопка срабатывает при нажатии Enter |
vbDefaultButton2 |
256 |
Вторая кнопка срабатывает при нажатии Enter |
vbDefaultButton3 |
512 |
Третья кнопка срабатывает при нажатии Enter |
vbDefaultButton4 |
768 |
Четвертая кнопка срабатывает при нажатии Enter |
Эта группа определяет поведение окна вывода.
ApplicationModal |
0 |
Модальное окно приложения; пока пользователь не закроет окно сообщения, приложение не будет работать. Значение по умолчанию. |
SystemModal |
4096 |
Системное модальное окно; все приложения приостанавливаются до тех пор, пока пользователь не закроет окно сообщения. |
MsgBoxSetForeground |
65536 |
Окно сообщения всегда на переднем плане. |
П
араметр
buttons
определяется как сумма констант.
Константы разных груп размещаются в
разных битах и могут задаваться как
численно, так и символьными константами.
i = MsgBox("Продолжить работу ", MsgBoxStyle.Critical + MsgBoxStyle.YesNo, "Демонстрация функции MsgBox")
Возвращаемое функцией MsgBox значение определяет выбранную кнопку и может определяться числом или символьной константой.
Константа |
OK |
Cancel |
Abort |
Retry |
Ignore |
Yes |
No |
Значение |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
Все константы, описывающие возвращаемое значение, являются членами MsgBoxResult.
response = MsgBox(msg, style, title)
If response = MsgBoxResult.Yes Then 'нажали Да
Application.Exit() 'закрываем приложение
Else
' продолжаем работу
End If