Пример 2. Рассмотрим способ вывода информации не в документ Word, а в стандартное диалоговое окно

 

Рассмотрим способ вывода информации не в документ Word, а в стандартное диалоговое окно. Данный способ можно осуществить только средствами VBA.

1. измените текст макроса следующим образом:

 

Sub Макрос1()

MsgBox (“Мое первое сообщение”)

debug.print “Мое первое сообщение”

End Sub

 

Краткие пояснения:

MsgBox (“Мое первое сообщение”)- это вызов стандартного диалога для сообщения;

debug.print “Мое первое сообщение” – этот оператор выводит текст в окно отладки, которое располагается ниже окна редактора VBA.

2. запустите макрос и убедитесь в правильности его работы.

3. обратитесь к справочной системе VBA для изучения особенностей работы стандартного диалога сообщений. Для этого, в редакторе VBA выделите имя функции MsgBox и нажмите F1. Появится окно справки, в котором можно ознакомиться с параметрами вызова этой функции.

Стандартный диалог сообщений имеет развитые средства взаимодействия с пользователем. Ее синтаксис следующий:

Response=MsgBox (prompt,buttons,title).

При запуске этой функции можно задать имя окна (title), само сообщение (prompt) и оформление окна (buttons), а также есть возможность определить какую кнопку нажал пользователь при закрытии этого окна (Response). Только параметр prompt является обязательным, остальные параметры - необязательные и их можно опускать. Оформление окна можно задавать следующими константами:

 

Константа	Числовое значение	Описание
vbOKOnly		Отображает только кнопку ОК
vbOKCancel		Отображает кнопки ОК и Cancel
vbAbortRetryIgnore		Отображает кнопки Abort, Retry и Ignore
vbYesNoCancel		Отображает кнопки Yes, No и Cancel
vbYesNo		Отображает кнопки Yes и No
vbRetryCancel		Отображает кнопки Retry и Cancel
vbCritical		Отображает значок Critical
vbQuestion		Отображает значок Warning
vbExclamation		Отображает значок Warning Message
vbInformation		Отображает значок Information Message

 

Возвращаемый параметр Response в зависимости от нажатой пользователем клавиши может принимать следующие значения:

 

константа	Числовое значение
vbOk
vbCancel
vbAbort
vbRetry
vbIgnore
vbYes
vbNo

Вышеописанный диалог полезно использовать для получения пользователя различных сведений, например о том, следует ли удалять файл с жесткого диска или удалять записи из базы данных, или подтверждение о сохранении файла под новым именем и т.д.