Question

This is probably a simple one but I can’t seem to figure it out.

I have a bunch of form items created by the form designer declared as (in frmAquRun.Designer.vb)

Public WithEvents btnAquRunEvent1 As VisibiltyButtonLib.VisibilityButton
Public WithEvents btnAquRunEvent2 As VisibiltyButtonLib.VisibilityButton

… etc

And I basically want to be able to supply a number to a function access each of these fields. So I wrote this function. (in frmAquRun.vb)

Const EVENT_BUTTON_PREFIX As String = "btnAquRunEvent"
Public Function getEventButton(ByVal id As Integer) As Windows.Forms.Button

    Dim returnButton As Windows.Forms.Button = Nothing
    Try
        returnButton = DirectCast(Me.GetType().InvokeMember(eventButtonName, Reflection.BindingFlags.GetField Or Reflection.BindingFlags.Public Or Reflection.BindingFlags.Instance, Nothing, Me, Nothing), Windows.Forms.Button)
    Catch ex As Exception
    End Try
    Return returnButton
End Function

But it always seems to be generating field not found exceptions.
The message in the exception is “Field ‘ATSIS_ControlProgram.frmAquRun.btnAquRunEvent1’ not found.”.

The namespace and form name in the message are correct. Any idea what i’m doing wrong?

Answer 1

The problem is that for WithEvents fields, VB actually creates a property that does the necessary event handler attaching and detaching. The generated property has the name of the field. The actual backing field gets renamed to _ + original name.¹⁾

So in order for your code to work just prefix the button name by _ or use the BindingFlag that corresponds to the property getter (instead of GetField).

Alternatively, you can do this a lot easier by using the Controls collection of the form:

returnButton = DirectCast(Me.Controls(eventButtonName), Windows.Forms.Button)

But beware that this only works if the button is top-level, i.e. not nested within a container control on the form.

---

¹⁾ This is an implementation detail of the VB compiler but it’s portable (especially to Mono’s vbnc compiler) since the handling for WithEvents fields is described in great detail in the VB language specifications.