События объекта Application

События объекта Document

Объект Document может реагировать на три события, возникающие в результате действий пользователя:

· Open – добавляет в коллекцию Documents существующий документ, открывая файл;

· New – открывает новый документ;

· Close – закрывает документ.

Событийные обработчики для Open и Close можно поместить в проект, связанный с документом, и тогда они будут вызваны в момент открытия/закрытия данного документа. А можно поместить обработчики и в шаблон (обычно Normal), на основе которого создан документ. При этом у обработчиков появится более широкая область действия, и они будут вызваны для любого документа, основанного на этом шаблоне, а также при открытии/закрытии самого шаблона. Помещать в проект конкретного документа обработчик события New не имеет смысла, так что место ему только в шаблоне, на основе которого создается новый документ.

Когда открывается приложение Word и создается объект Application, то он не имеет событий по умолчанию, которые мог бы обрабатывать. Но можно связать с приложением другой объект, реагирующий на два события:

· Quit – возникает в тот момент, когда пользователь закрывает приложение;

· DocumentChange – возникает в тот момент, когда пользователь переключается с одного документа на другой.

Чтобы в классе описать обработчик события, используется применяемое только в модулях класса ключевое слово WithEvents, указывающее на объект, который используется при отклике на событие. Пользователь имеет возможность описать с помощью ключевого слова WithEvents произвольное количество отдельных переменных, однако при этом не допускается создание массивов. Не допускается также использование ключевого слова New с ключевым словом WithEvents.

Таким образом, создание обработчиков событий для объекта Application сложнее, чем для объекта Document (там есть уже готовые). Чтобы справиться с этой задачей, необходимо:

· создать объект класса, реагирующего на события;

· связать этот объект с приложением Word;

· создать обработчики событий нового объекта.

Покажем на примере весь процесс построения обработчиков событий объекта Application. Сначала создадим новый класс объектов путем вставки модуля класса с именем EventsOfApp, в котором объявим объект-приложение, реагирующий на события:

Public WithEvents AppEv As Application

Теперь нужно связать этот объект с текущим приложением. Для этого мы переключимся на работу с модулем, связанным с нашим документом. В этом модуле мы объявим объект Арр1 – экземпляр созданного класса EventsOfApp и добавим процедуру InitNewApp. Вот, как это выглядит:

Private App1 As New EventsOfAppPublic Sub InitNewApp() Set App1.AppEv = Application End Sub

В момент объявления переменной App1 создается объект (поскольку указано New) класса EventsOfApp. В этот объект вложен объект AppEv специального класса Application, реагирующего на события. Этот объект получает значение и становится текущим приложением. Наш объект теперь будет ссылаться на объект Application, но плюс еще иметь обработчики событий. Создадим их.

В модуле класса переключаемся на работу с классом EventsOfApp, в списке окна объектов выбираем AppEv, в окне процедур – имя соответствующих событий Quit и DocumentChange, после чего добавляем свой код:

Private Sub AppEv_DocumentChange() MsgBox "Переключаетесь? Ну-ну." End Sub Private Sub AppEv_Quit() CommandBars(“translate").Visible = True End Sub

При переключении с одного документа на другой (потери фокуса) выдается соответствующее сообщение. При выходе из приложения мы восстанавливаем собственную панель с кнопками по имени "translate". Когда приложение откроется в следующий раз, эта панель будет включена.

Чтобы все это заработало, нужно запустить на выполнение процедуру InitNewApp. Можно поместить эту процедуру в обработчик события Document.Open.

Дата добавления: 2014-01-05