Events: IMetabaseCustomForeEvents;
Events: Prognoz.Platform.Interop.Metabase.IMetabaseCustomForeEvents;
Свойство Events возвращает коллекцию пользовательских событий.
Для работы с коллекцией событий используйте интерфейс IMetabaseCustomForeEvents.
Для выполнения примера добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
CustomExtender: IMetabaseCustomExtender;
Events: IMetabaseCustomForeEvents;
ForeEvent: IMetabaseCustomForeEvent;
Begin
MB := MetabaseClass.Active;
//Получение контейнера пользовательских классов
CustomExtender := MB.SpecialObject(MetabaseSpecialObject.CustomExtender).Edit As IMetabaseCustomExtender;
//Получение списка событий
Events := CustomExtender.Events;
ForeEvent := Events.FindByName("Начало загрузки");
//Генерация события
ForeEvent.Invoke;
End Sub UserProc;
В результате выполнения примера будет сгенерировано пользовательское событие с наименованием «Начало загрузки».
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
CustomExtender: IMetabaseCustomExtender;
Events: IMetabaseCustomForeEvents;
ForeEvent: IMetabaseCustomForeEvent;
Begin
MB := Params.Metabase;
//Получение контейнера пользовательских классов
CustomExtender := MB.SpecialObject[MetabaseSpecialObject.msoCustomExtender].Edit() As IMetabaseCustomExtender;
//Получение списка событий
Events := CustomExtender.Events;
ForeEvent := Events.FindByName("Начало загрузки");
//Генерация события
ForeEvent.Invoke();
End Sub;
См. также: