Dynamic Create ToolBarButtons

[ahollaar]

I created a dynamic toolbar like hereunder:

private sub createbuttons()
-----------------------------------
Dim tbutton As ToolBarButton
For Each menuitem In menulist
tbutton = New ToolBarButton()
...
...
AddHandler tlbPackages.ButtonClick, AddressOf DynButtonClick
tbrMenu.Buttons.Add(tbutton)
Next

Private Sub DynButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)
----------------------------------------------------------------------------------
MessageBox.Show(e.Button.Text)

Problem:

I created a handler for buttonclick. It seems to work fine and so it is. BUT when I click on the button de "DynButtonClick" will be executed 6 times and I will see the message multiple times.

What am I doing wrong ???

PLease Help

Thanks in advanced
AXH

[pax]

Hi.

Dim tbutton As ToolBarButton
For Each menuitem In menulist
tbutton = New ToolBarButton()
...
...
AddHandler tlbPackages.ButtonClick, AddressOf DynButtonClick
tbrMenu.Buttons.Add(tbutton)
Next

I assume that tlbPackages is the toolbar itself, so maybe you should remove
the Addhandler alltogether?!?. I think the problem is that you add six handlers to
the same event. I don't think you need to add a handler to a toolbarbutton, because
the toolbar uses the same events for all buttons.

[ahollaar]

I know the answer. The addhandler you have to define outside the loop and then it is working.

By the way Thanks
AXH