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