Описание
Опеделение
| Visual Basic |
|---|
Public Event ObjectsErased( _ ByVal pObjects As TDMSObjects _ ) |
Параметры
- pObjects
- Ссылка на коллекцию удаляемых объектов.
Заметки
1. Событие нельзя отменить. Однако в момент вызова обработчика события свойства и методы объектов еще доступны для обращения - это может быть полезным для сбора некоторой информации, создания резервной копии и т.п.
2. Обработчик может быть размещен в скрипте профиля и/или общесистемном. Если обработчики определены на всех уровнях, то последовательность их вызова такова:
- скрипт профиля пользователя;
- общесистемный скрипт.
Если на каком-либо уровне событие было отменено (параметру bCancel присвоено значение TRUE), то обработчики события, размещенные на последующих уровнях, вызваны не будут.
4. Схему последовательности генерации событий при удалении коллекции объектов из системы или состава другого объекта см. на рисунке:
5. Событие генерируется при программном удалении коллекции объектов из системы, если включен вызов объектных событий в Окне свойств базы данных (см. рисунок).
Пример
| VB Script (VBScript) |  Скопировать код |
|---|---|
'====================================================================== 'Текст обработчика может быть размещен в скрипте объекта, 'профиля или общесистемном скрипте. Sub Objects_Erased(Objs) 'Вывести информацию об удаленных объектах (в данный момент 'отменить удаление уже нельзя, но свойства и методы объекта 'еще доступны для обращения). MsgBox "Объекты в количестве """ & Objs.Count & """ успешно удалены.",_ vbInformation, "Удаление коллекции объектов" End Sub '====================================================================== | |