get handlers from existing events in vb in an easy way

[christoph33]

for the existing MenuStrip-Item I want to create an appropriate ToolStrip with identical buttons. But how can I access the existing click-events? I cannot "addhandler mmi.click, adressof mi.click" and "adressof mi.onclick" also fails because it's protected. In c# I must add the handlers manually, so I know them, but in vb it's hidden... For Each Mi As ToolStripItem In FileMenu.DropDownItems If TypeOf (Mi) Is ToolStripMenuItem Then Dim mmi As New ToolStripButton mmi.Text = "" mmi.Image = Mi.Image mmi.ToolTipText = Mi.Text addhandler mmi.click, "get the handler of the mi.click-event" tsProgramm.Items.Add(mmi) ElseIf TypeOf (Mi) Is ToolStripSeparator Then Dim mmi As New ToolStripSeparator tsProgramm.Items.Add(mmi) Else End If Next Thanks in advance Chris

[MidwestLimey]

Where is this existing click handler coming from? If you haven't created and assigned one, it doesn't yet exist. If you have, then keep a reference to the delegate for later assignment. If you're refering to one used by the control internally, it maybe accessible via reflection - but that would be very poor design.

---

I'm largely language agnostic

---

After a while they all bug me :doh:

---

[christoph33]

MidwestLimey wrote:

Where is this existing click handler coming from?

I wrote it, every menuitem has a eg fileopen_click(sender, e) handles fileopen.click.

MidwestLimey wrote:

If you have, then keep a reference to the delegate for later assignment.

Isn't there a get-the-address-of-the-onclick-event--function in the .net-jungle?

MidwestLimey wrote:

If you're refering to one used by the control internally, it maybe accessible via reflection - but that would be very poor design.

Ugly, yes... Fastest way would be coding out every menuitem, but that's not very genious. Thanks for your answer Chris

[christoph33]

I got a solution, but with that I have to declare all Menuitem_Click-Subs as Public and I have to set an InitFlag into them to supress invocation, because CallByName calls the event... For Each Mi As ToolStripItem In FileMenu.DropDownItems If TypeOf (Mi) Is ToolStripMenuItem Then Dim mmi As New ToolStripButton mmi.Text = "" mmi.Image = Mi.Image mmi.ToolTipText = Mi.Text Dim pArray() As Object = {Mi, New System.EventArgs} Dim delegateMn As System.EventHandler = CType(CallByName(Me, Mi.Name & "_Click", CallType.Method), System.EventHandler) AddHandler mmi.Click, delegateMn tsProgramm.Items.Add(mmi) ElseIf TypeOf (Mi) Is ToolStripSeparator Then Dim mmi As New ToolStripSeparator tsProgramm.Items.Add(mmi) Else End If Next

[MidwestLimey]

Why not declare the delegate ahead of time and then assign to each item's event?

Dim myDelegate As EventHandler = AddressOf MenuItem_Click

Where MenuItem_Click is a generic event handler for tool strip menu items.

---

I'm largely language agnostic

---

After a while they all bug me :doh:

---

[christoph33]

Then I have to write 15 or more new delegates? Right? The aim was to add a toolstrip to the existing menustrip to act like a buddy. The new toolstrips get all properties from the existing menustrips and share the same events (there are more than 1 menustrip in the mdi). So I thought I could put some code-lines into a loop....

[MidwestLimey]

If I understand what you're trying to do (bear with me, I'm slow today!), then wouldn't it be easier to add a general event handler to the buddy strip buttons that calls PerformClick on the appropriate menu buttons? You could maintain context via either the Tag property or a dictionary.

---

I'm largely language agnostic

---

After a while they all bug me :doh:

---

[christoph33]

That would be a very good solution. I'll try it out. Thanks Chris