why isn't my event firing?

Question

0.00/5 (No votes)

See more:

I Have added a contextmenustrip to my form and called it Namelist. The contextmenu shows the menuitems I add at runtime, but the event for it does not fire?

VB

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim name As String = "Menu1"
        Dim MyMenuItem As New MenuItem
        MyMenuItem.Text = name
        AddHandler MyMenuItem.Click, AddressOf MyMenuItems_Click
        Namelist.Items.Add(name)

        name = "Menu2"
        MyMenuItem = New MenuItem
        MyMenuItem.Text = name
        AddHandler MyMenuItem.Click, AddressOf Me.MyMenuItems_Click
        Namelist.Items.Add(name)
    End Sub
   
    Private Sub MyMenuItems_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim MyMenu As MenuItem = CType(sender, MenuItem)
        Select Case MyMenu.Text
            Case "Menu1"
                MessageBox.Show("Menu1 was clicked")
            Case "Menu2"
                MessageBox.Show("Menu2 was clicked")
        End Select

    End Sub

    Private Sub Form1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles Me.MouseDoubleClick
        Namelist.Show(Me, e.X, e.Y)
    End Sub

Anyone?

Posted 12-Oct-13 3:24am

Craig Haywood

Updated 12-Oct-13 3:27am

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Craig Haywood · Accepted Answer · 2013-10-12T04:28:00

Okay I solved it. Changed the code and now it works

VB

Dim name As String = "Menu1"
        Dim MyMenuItem As New ToolStripMenuItem()
        MyMenuItem.Text = name
        MyMenuItem.Image = Image.FromFile("F:\My Icons\firefox.ico")
        AddHandler MyMenuItem.Click, AddressOf MyMenuItems_Click
        AddHandler MyMenuItem.MouseEnter, AddressOf MyMenuItems_Enter

        Namelist.Items.Add(MyMenuItem)

        name = "Menu2"
        MyMenuItem = New ToolStripMenuItem()
        MyMenuItem.Text = name
        AddHandler MyMenuItem.Click, AddressOf Me.MyMenuItems_Click
        AddHandler MyMenuItem.MouseEnter, AddressOf MyMenuItems_Enter
        Namelist.Items.Add(MyMenuItem)