RegisterModuleEvent ( Function )
Метод: RegisterModuleEvent - Подключить события модуля к форме ввода
Синтаксис:
objectvariable.RegisterModuleEvent( Module, ObjName )
где
objectvariable - ITCSForm
Module: IPModule - Модуль, события от которого хотим обрабатывать
ObjName: String - уникальное обозначение модуля
Пример на VBScript
Для работы примера необходимо создать форму ввода, с компонентом AxDbForm, c именем AxForm
Sub FormEvent_OnFormCreate(Form)
'Form As ITCSForm
Call Form.RegisterModuleEvent( theApp.NmkClasses, "NmkClassesEvents" )
Call theApp.NmkClasses.Show( Form.c_AxForm )
End Sub
Sub FormEvent_OnModuleEvent( Form, ObjName, Module, EventType, EventData )
'Form As ITCSForm, ObjName As String, Module As IPModule, EventType As TMEventsTypes, EventData As Variant
Call theApp.ShowMessageBox( "Получено событие от объекта", ObjName )
End Sub
Sub FormEvent_OnFormDestroy(Form)
'Form As ITCSForm
Call theApp.NmkClasses.Hide
End Sub