Button Handles after creating buttons in code

Question

I have previously created buttons in my code, as shown:

Dim Itm As New Button
Itm.Name = "Itm" & i
Itm.Height = 62
Itm.Width = 159
Itm.Text = Temp(i, 0).ToUpper
Itm.Left = (F * 165)
Itm.Visible = True
Itm.BackColor = Colour
Itm.ForeColor = Color.Black
Me.pnlItemButton1.Controls.Add(Itm)

When I run the form, the buttons are created but I now need to create an Event Sub for when the new buttons are clicked. I have tried this:

    Private Sub Itm1_click(ByVal sender As System.Object, 
                 ByVal e As System.EventArgs) Handles Itm1.click

End Sub

But get an error that 'handle clause requires with WithEvent'

So how can i do this ?

Also, the amount of buttons - Itm(i) is variable, so how can i create a handle that will account for Itm1 to Itm99?

Possible duplicate of Dynamic button click event handler

DieVeenman
– DieVeenman

2015-10-14 09:10:14 +00:00
Commented Oct 14, 2015 at 9:10 — DieVeenman
– DieVeenman, Commented Oct 14, 2015 at 9:10

DieVeenman · Accepted Answer · 2015-10-14 09:06:48Z

1

When you define a dynamically added button it doesn't exist at runtime so you can't set an event handler like that, what you can do is the following:

Dim Itm As New Button
Itm.Name = "Itm" & i
Itm.Height = 62
Itm.Width = 159
Itm.Text = Temp(i, 0).ToUpper
Itm.Left = (F * 165)
Itm.Visible = True
Itm.BackColor = Colour
Itm.ForeColor = Color.Black
AddHandler Itm.Click, AddressOf Me.Itm1_Click
Me.pnlItemButton1.Controls.Add(Itm)

Then set a protected Event Handler:

Protected Sub Itm1_click(ByVal sender As System.Object, ByVal e As System.EventArgs)    
End Sub

answered Oct 14, 2015 at 9:06

DieVeenman

4571 gold badge3 silver badges18 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

James.Net Over a year ago

But using that added line, is hard coding Itm1, when the Itm Name is in a loop with Itm & i, so will not always be Itm1?

DieVeenman Over a year ago

Every added button will have the same EventHandler, there is no other way in Vb.net to dynamically add an EventHandler to a button besides this, also it isn't hardcoded, the only hardcoded part is your itm1_click

Community · Accepted Answer · 2017-05-23 12:03:52Z

1

For your first error, look at this. It may help you.

To create an event click for every button you create dynamically try this:

AddHandler Itm.Click, AddressOf Me.Itm1_Click

Then you don't need the Handles Itm1.click in your Sub:

Private Sub Itm1_click(ByVal sender As System.Object,ByVal e As System.EventArgs)   
       'Do stuff
End Sub

edited May 23, 2017 at 12:03

CommunityBot

11 silver badge

answered Oct 14, 2015 at 9:07

daro

3131 gold badge4 silver badges18 bronze badges

Collectives™ on Stack Overflow

Button Handles after creating buttons in code

2 Answers 2

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related