Описание
Генерируется в момент завершения работы TDMS перед закрытием главного окна приложения.
Опеделение
| Visual Basic |
|---|
Public Event BeforeQuit( _ ByRef bCancel As Boolean _ ) |
Параметры
- bCancel
- TRUE - отменить наступление события Quit.
Заметки
1. Событие является отменяемым: если параметру bCancel присвоено значение TRUE, закрытие приложения не произойдет.
2. Обработчик может быть размещен в скрипте профиля и/или общесистемном. Если обработчики определены на обоих уровнях, то:- в первую очередь событие обрабатывается в скрипте профиля пользователя, затем в общесистемном;
- если на уровне профиля событие было отменено (параметру bCancel присвоено значение TRUE), то обработчик события, размещенный в общесистемном скрипте, вызван не будет.
3. Для того, чтобы событие генерировалось при работе через API (вызове метода TDMSApplication.Quit Метод), должен быть включен вызов объектных событий в Окне свойств базы данных (см. рисунок).
Пример
| VB Script (VBScript) |  Скопировать код |
|---|---|
'====================================================================== 'Текст обработчика должен быть размещен в скрипте профиля или 'общесистемном скрипте. '===================================================================== Sub BeforeQuit(Cancel) 'Запросить подтверждение закрытия приложения msg = "Вы действительно хотите выйти из приложения?" If ((MsgBox(msg, vbYesNo + vbQuestion, "Закрытие TDMS")) <> VbYes) Then Cancel = True End If End Sub '====================================================================== | |