(Re)assigning On Click event of a control

[HansVanSteen]

(each time the text says "On Click", one has to read this as one word without the space. That word is censored . I suppos to avoid scripting )

In a userform I use radio buttons (a frame holding option buttons, only one is depressed) and don't want to scan all objects to check the status. My idea is to have a generic event procedure to catch all On click events and set the "tag" property of the frame. I tried something like the code below.(Userform_initialise)

Normally in delphi I would call the inherited On Click and assign an OVERRULE procedure to do this but being a newbee to VB I have not the foggiest idea how to do this.


Private Function OptionButtonOn ClickEvent(ctrl As Control)
ctrl.Parent.Tag = ctrl.Caption
End Function

Sub Userform_Initialise()
Dim ctrl As Control

For Each ctrl In MainForm.Controls
If InStr(Ctrl.name, "Option") <> 0 Then
Rem Set ctrl!on Click = OptionButtonOn ClickEvent(ctrl)
End If
Next ctrl
End Sub

 

[Kyle123]

You can't really do this easily in VBA, it's not designed that way.

Your options are either to loop through the form controls to check their status, or create an events class to handle the click event of a particular control, you then store these in a collection. This does seem a bit overkill for checking the value of option buttons though

 

[HansVanSteen]

You can't really do this easily in VBA, it's not designed that way.

Your options are either to loop through the form controls to check their status, or create an events class to handle the click event of a particular control, you then store these in a collection. This does seem a bit overkill for checking the value of option buttons though

Thanks, I don't mind coding some overkill if needed. I thought VBA was an extension of VB. Or is object programming and inheritance not part of
VB(A)? Anyway, I now know what to do. Just scan the lot. What do you think, shall the ctrl.parent.tag = ctrl.caption work?

greets...

Hans

 

[Kyle123]

Not really, it's a stripped down version of VB6 so doesn't support full inheritance, only interface inheritance.

I don't know because I don't know what you're wanting to do with the data once you've got it. I would have thought a class level variable would be better suited?

 

[HansVanSteen]

I thought to scan trough all objects and set the tag property of the parent, than scan objects again for frames and color the frames parent green to indicate that all radio groups have been touched. Then finally scan the objects again for the page objects and readout the colors et voila, there's your result. It's not like you will win a programming contest with this code but then again, this isn't real programming, is it?