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