Change Event for multiple types
Is it possible to write something like global event listener? I would like
to have a listener for more objects (TextBox, CheckBox, OptionButton,
Label, ...). and have the listener in my class. I have some normal events,
so I my idea looks like this:
Public WithEvents eventGlobLst As <DontKnowWhat>SomeType</DontKnowWhat>
Sub setListener(controlObj As SomeType)
Set eventGlobList = controlObj
End Sub
From my run-method I'm calling sub which sets the listener
For Each pages In csDialgog.MultiPage.Pages
For Each objectControl In pages.Controls
Set eventClass = New ControlsClass
eventClass.setListener objectControl
universalObjectCollection.Add eventClass
Next
Next
This works fine with classic events. Finally I have some event handler:
Private Sub EventGlobLstnr_AfterUpdate()
Functions.GlobalChange
End Sub
I would like to know if exist some ancestor of all objects which I can
use. Or I must write the listener for every type separately and set them
same GlobalChange.