Описание
Опеделение
| Visual Basic |
|---|
Public Event ObjectErased( _ ByVal pObject As TDMSObject _ ) |
Параметры
- pObject
- Объект, который будет удален непосредственно после вызова обработчика данного события.
Заметки
1. Событие нельзя отменить. Однако в момент вызова обработчика события свойства и методы объекта еще доступны для обращения.
2. Обработчик может быть размещен в скриптах объекта, профиля и/или общесистемном. Если обработчики определены на всех уровнях, то последовательность их вызова такова:
- скрипт объекта;
- скрипт профиля пользователя;
- общесистемный скрипт.
3. Событие может регистрироваться в Журнале событий приложения (в зависимости от настроек Журнала для конкретного пользователя) и соответственно добавляться в коллекцию событий %TDMSApplication.Events Свойство. Зарегистрированное событие имеет класс: TDMSEventClass Перечисление tdmEventClassObject и тип: TDMSEventType Перечисление tdmEventObjectRemove.
4. Схему последовательности генерации событий при удалении объекта из системы или состава другого объекта см. на рисунке:
Событие генерируется всегда, независимо от того как был удален объект (через API или интерфейс).
5. Для того, чтобы событие генерировалось при работе через API (при вызове метода TDMSObject.Erase Метод), должен быть включен вызов объектных событий в Окне свойств базы данных (см. рисунок).
Пример
| VB Script (Visual Basic) |  Скопировать код |
|---|---|
'====================================================================== 'Текст обработчика может быть размещен в скрипте объекта, 'профиля или общесистемном скрипте. Sub Object_Erased(Obj) 'Вывести информацию об удаленном объекте (в данный момент 'отменить удаление уже нельзя, но свойства и методы объекта 'еще доступны для обращения). MsgBox "Объект """ & Obj.Description & """ успешно удален.",_ vbInformation, "Удаление объекта" End Sub '====================================================================== | |