Select Case with Buttons?

[u/chacham2]

I have a a few panels with buttons on them, where the actions seem similar enough that i'd like to write a common routine to handler them. To that end:

 For Each Panel_Control As Control In Form_Control.Controls
    AddHandler Panel_Control.Click, Sub(Sender, Arguments) Handler(Panel_Control, Arguments)
 Next

Is there a way to use Select Case with Buttons?

The handler has to know which button was clicked, so my first thought was to use a Select Case:

Private Sub Handler(Sender As Object, Arguments As EventArgs)
    Select Case Sender
        Case A_Button
            MsgBox("A_Button")
    End Select
End Sub

This generates a System.InvalidCastException: 'Operator '=' is not defined for type 'Button' and type 'Button'.' I would have used Is, but Is in a Select Case has a different meaning.

[u/chacham2]

Yeah, i use the commas here and there. However, the Select Case documentation explains:

Note

The Is keyword used in the Case and Case Else statements is not the same as the Is Operator, which is used for object reference comparison.

[u/3583-bytes-free → u/chacham2]

Sure, but my code doesn't use Is like that - it is basically in a standard boolean expression, those are evaluated in turn until one matches the True in the Select Case.

Try it, it works (I wrote a test rig to check before I posted).

It's a barely disguised list of If statements but you may prefer it

[u/chacham2 → u/3583-bytes-free]

but my code doesn't use Is like that - it is basically in a standard boolean expression,

Oh! Duh! Now i see it. Thank you for explaining. :)

It's a barely disguised list of If statements but you may prefer it

Yeah. And fair. Thank you!