each object displaying it's name in a textbox when clicked on - possible?

[Psychotron]

hi. i'm having a problem. when the user clicks on any object in my program i want it's name to appear in a certain textbox. the following code will do it only if i set ALL the objects as handles. this hardly seems feasible. does anyone know of an easier way? here's what i have:

Private Sub Object_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LeaveCoverRdo.Click, SnowCompleteRdo.Click, SnowPartiallyRdo.Click, TooHighRdo.Click, PercVisCmb.Click, etc, etc, etc.....

        CustTxt.Text = sender.Text
End Sub

[Conscript]

What kind of objects are these?

BTW, try this, in the object's (im assuming stuff like Pictureboxes, Buttons, etc.) Click procedure type this:

Private Sub MyObject1_Click()

textbox.text = "MyObject1"

End Sub


So rather than making it automatically detect the object's name, just cheat and make it send it directly :-)

That way for all the objects you just edit what it says in the quotes to reflect all those object's names.

[Tygur]

You could do something like this:

    Sub SetGenericClick()
        Dim Ctl As Control
        For Each Ctl In Controls
            AddHandler Ctl.Click, AddressOf GenericClick
        Next
    End Sub

    Sub GenericClick(ByVal sender As Object, ByVal e As System.EventArgs)
        CustTxt.Text = sender.text
    End Sub

Just make sure that SetGenericClick gets run when the form starts.

Note that, according to the help files, "you should not use both WithEvents and AddHandler with the same event". By WithEvents, they mean the Handles keyword.

[Psychotron]

SetGenericClick() is called when the form loads, but when i click something the AddHandler statement doesn't seem to call up GenericClick(), so i'm still not seeing anything in my textox. it doesn't seem like "For Each Ctl In Controls" is cycling through my controls.

I will try playing w/ it some more, but let me know if you have any other suggestions.

Thanks for the help,
Brad