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

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

MsgBox (Сообщение[,Кнопки][,Заголовок][,Файл_помощи,Помощь])

Здесь:

Сообщение – обязательный аргумент; строковое выражение, которое и является сообщением или вопросом, обращенным к пользователю. Максимально может содержать около 1024 символов. Если сообщение необходимо разбить на несколько строк, то используются специальные символы кодовой таблицы ASCII: 13 – возврат каретки, 10 – переход на новую строку. Используются они в виде строки Chr(13)+Chr(10), которая добавляется к каждой из разбиваемых строк. Например:

MsgBox (“Вы уже посмотрели, как работает программа?”+ Chr(13)+Chr(10)+ “Завершить работу сейчас?”)

Кнопки – необязательный параметр, определяющий внешний вид окна сообщения:

Наименование константы	Набор кнопок в диалоговом окне сообщений
VbOKOnly	ОК
VbOKCancel	ОК, Отмена
VbAbortRetryIgnore	Стоп, Повтор, Пропустить
VbYesNoCancel	Да, Нет, Отмена
VbYesNo	Да, Нет
vbRetryCancel	Повтор, Отмена
VbCritical	Значок критического состояния
VbQuestion	Значок вопроса с предупреждением
VbExclamation	Значок предупреждающего сообщения
VbInformation	Значок информационного сообщения

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

Заголовок – необязательный аргумент; строковое выражение, отображаемое в заголовке окна, если он опущен, в заголовке используется имя проекта.

Файл_помощи, Помощь – необязательные аргументы, используются в паре для подключения файла помощи, если используется кнопка Справка.

Параметр Кнопки по умолчанию имеет значение VbOKOnly.

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

Нажатая кнопка	Константа
OK	VbOK
Отмена	VbCancel
Стоп	VbAbort
Повтор	VbRetry
Пропустить	VbIgnore
Да	VbYes
Нет	VbNo

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

MsgBox(”Деление на ноль”).

На Рис. 5 представлен пример работы процедуры, вызывающей окно сообщения с двумя кнопками Да и Нет:

Private Sub Command1_Click()

a = MsgBox("Вы уже посмотрели, как работает_

программа?" & Chr(13)&Chr(10) & "Завершить работу_

сейчас?", vbYesNo + vbQuestion, "Демонстрация_

многострочного сообщения")

If a = vbYes Then Unload Me 'Выгрузить форму

Дата добавления: 2014-11-16