IMetabaseCustomForeEvents.Add

Синтаксис Fore

Add(Id: String): IMetabaseCustomForeEvent;

Синтаксис Fore.NET

Add(Id: String): Prognoz.Platform.Interop.Metabase.MetabaseCustomForeEvent;

Параметры

Id. Идентификатор пользовательского события.

Описание

Метод Add добавляет новое пользовательское событие в коллекцию.

Комментарии

Для очистки коллекции пользовательских событий используйте метод IMetabaseCustomForeEvents.Clear.

Примеры

Добавьте ссылку на системную сборку Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    CustomClassExtender: IMetabaseCustomExtender;
    Events: IMetabaseCustomForeEvents;
    ForeEvent: IMetabaseCustomForeEvent;
Begin
    MB := MetabaseClass.Active;
    
//Получение контейнера пользовательских классов
    CustomClassExtender := Mb.SpecialObject(MetabaseSpecialObject.CustomExtender).Edit As IMetabaseCustomExtender;
    
//Получение списка событий
    Events := CustomClassExtender.Events;
    ForeEvent := Events.Add(
"EVENT_ENTER");
    ForeEvent.Name := 
"Вход в приложение";
    (CustomClassExtender 
As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    CustomClassExtender: IMetabaseCustomExtender;
    Events: IMetabaseCustomForeEvents;
    ForeEvent: IMetabaseCustomForeEvent;
Begin
    MB := Params.Metabase;
    
//Получение контейнера пользовательских классов
    CustomClassExtender := Mb.SpecialObject[MetabaseSpecialObject.msoCustomExtender].Edit() As IMetabaseCustomExtender;
    
//Получение списка событий
    Events := CustomClassExtender.Events;
    ForeEvent := Events.Add(
"EVENT_ENTER");
    ForeEvent.Name := 
"Вход в приложение";
    (CustomClassExtender 
As IMetabaseObject).Save();
End Sub;

При выполнении примера будет создано новое пользовательское событие.

См. также:

IMetabaseCustomForeEvents