Create a function to handle click events of controls created during runtime in VB.NET

[sagarbakliwal]

hi,

I am new to this forum but i have received a lot of help reading through this forum. I am creating a VB.NET application for Patient Record Management. In this there are various combo boxes and buttons being generated during run time when a particular patient ID is searched for. Say one patient might have 2 entries some may have 10 entries. So the controls are generated dynamically and then the control names are added to the forms collection(Me.Controls.Add(txtDataShow))

I am looking for is generating functions during runtime which can handle say a clicking of the button which was generated during runtime. some thing like

Private Sub btnAddDiag_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs)
Handles (dynamicbutton).Click

where dynamicbutton will be the name of the button the user clicks.

Appreciate your help.

[balabaster]

It depends on the object you're handling...but here's the jist of it...

Private Sub MyEventHandler(ByVal Sender As Object, ByVal e As System.EventArgs) 'The System.EventArgs may change depending upon the event you handle and what type of object...
  'Do stuff
End Sub
 
'In your sub where you add your object
Dim oObj As New Object 'Replace Object with the type of object you require.
AddHandler oObj.Event, AddressOf MyEventHandler
 

Instead of attaching the Handles clause on the end of your event handler sub, you effectively attach the event handler dynamically at the time the object is instantiated. A for instance - if you're adding a button to your page and wish to handle the click event of that button:

Private Sub MyClickHandler(ByVal Sender As Object, ByVal e As System.EventArgs) 'Notice there's no handles clause here
  MsgBox "You clicked "& CType(Sender, Button).ID & "."
End Sub
 
Sub Page_Load(ByVal Sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  For n As Integer = 1 To 10
    Dim oBtn As New Button
    oBtn.ID = "Button"& n
    oBtn.Text = "Click me!"
    AddHandler oBtn.Click, Addressof MyClickHandler
    Form1.Controls.Add(oBtn)
  Next
End Sub

[sagarbakliwal]

It depends on the object you're handling...but here's the jist of it...

Private Sub MyEventHandler(ByVal Sender As Object, ByVal e As System.EventArgs) 'The System.EventArgs may change depending upon the event you handle and what type of object...
  'Do stuff
End Sub
 
'In your sub where you add your object
Dim oObj As New Object 'Replace Object with the type of object you require.
AddHandler oObj.Event, AddressOf MyEventHandler
 

Instead of attaching the Handles clause on the end of your event handler sub, you effectively attach the event handler dynamically at the time the object is instantiated. A for instance - if you're adding a button to your page and wish to handle the click event of that button:

Private Sub MyClickHandler(ByVal Sender As Object, ByVal e As System.EventArgs) 'Notice there's no handles clause here
  MsgBox "You clicked "& CType(Sender, Button).ID & "."
End Sub
 
Sub Page_Load(ByVal Sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  For n As Integer = 1 To 10
    Dim oBtn As New Button
    oBtn.ID = "Button"& n
    oBtn.Text = "Click me!"
    AddHandler oBtn.Click, Addressof MyClickHandler
    Form1.Controls.Add(oBtn)
  Next
End Sub

The code AddHandler oBtn.Click, Addressof MyClickHandler works pefectly and is exactly what i needded. I used it where i was creating the buttons dynamically and it does add the click function during runtime. Thanks a lot. You saved me a lot of trouble.