Генерируется в момент завершения работы TDMS после закрытия главного окна приложения.
Visual Basic |
---|
Public Event Quit() |
1. Событие нельзя отменить.
2. Обработчик может быть размещен в скрипте профиля и/или общесистемном. Если обработчики определены на обоих уровнях, то в первую очередь событие обрабатывается в скрипте профиля пользователя, затем в общесистемном.3. Событие может регистрироваться в Журнале событий приложения (в зависимости от настроек Журнала для конкретного пользователя) и соответственно добавляться в коллекцию событий TDMSApplication.Events Свойство. Зарегистрированное событие имеет класс TDMSEventClass Перечисление tdmEventClassLogin и тип TDMSEventType Перечисление tdmEventUserLogoff.
4. Для того, чтобы событие генерировалось при работе через API (напр., при вызове TDMSApplication.Quit Метод), должен быть включен вызов объектных событий в Окне свойств базы данных (см. рисунок).
Пример обработки события Quit
VB Script (Visual Basic) | ![]() |
---|---|
'====================================================================== 'Текст обработчика должен быть размещен в скрипте профиля или 'общесистемном скрипте. Sub Quit() 'Хотя главное окно приложения уже закрыто, пользовательские объекты, 'как и объекты TDMS API, все еще доступны для обращения MsgBox "До скорых встреч, уважаемый пользователь " & _ ThisApplication.CurrentUser.Description End Sub '====================================================================== |