IPrxReportUserEvents.EventOnAfterAddSheet

Синтаксис Fore

Sub EventOnAfterAddSheet(Args: IUiPrxSheetEventArgs);
Begin
   //набор операторов;
End Sub EventOnAfterAddSheet;

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

Sub EventOnAfterAddSheet(Args: Prognoz.Platform.Interop.Report.UiPrxSheetEventArgs);
Begin
   //набор операторов;
End Sub EventOnAfterAddSheet;

Параметры

Args. Параметр, позволяющий работать с параметрами события.

Описание

Метод EventOnAfterAddSheet реализует событие, которое наступает после добавления листа.

Комментарии

Для реализации события, которое наступит после удаления листа, используйте метод IPrxReportUserEvents.EventOnAfterDeleteSheet.

Пример Fore

Для выполнения примера предполагается наличие регламентного отчета. Подключите модуль в регламентный отчет, в качестве обработчика событий выберите подключенный модуль и класс «EventsClass». В модуле подключите системные сборки: Metabase, Report, Ui.

Class EventsClass: ReportEvents
Public Sub OnAfterAddSheet(Sheet : IPrxSheet);
Begin
    WinApplication.InformationBox("Был добавлен лист " + Sheet.Name);
End Sub OnAfterAddSheet;
Public Sub OnAfterDeleteSheet(Sheet : IPrxSheet);
Begin
    WinApplication.InformationBox("Был удален лист " + Sheet.Name);
End Sub OnAfterDeleteSheet;
End Class EventsClass;

При добавлении/удалении листа в регламентном отчете будет выдано информационное сообщение.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Ui;

Public Class EventsClass: PrxForeNetReportUserEventsClass
Public Override Sub OnAfterAddSheet(Sheet : IPrxSheet);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Был добавлен лист " + Sheet.Name, Null);
End Sub OnAfterAddSheet;
Public Override Sub OnAfterDeleteSheet(Sheet : IPrxSheet);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
    WinAppCls.InformationBox("Был удален лист " + Sheet.Name, Null);
End Sub OnAfterDeleteSheet;
End Class EventsClass;

См. также:

IPrxReportUserEvents

Связанные записи

Требование