Hello Community,
I'm trying to dynamically add a menuitem to my context menu and add a click handler but for some reason it won't add the handler what did a do wrong?

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each Line In RichTextBox1.Lines
            Dim NewItem As New MenuItem
            NewItem.Text = Line
            AddHandler NewItem.Click, AddressOf NewItem_Click
            ContextMenuStrip1.Items.Add(Line)
        Next
    End Sub

    Private Sub NewItem_Click(sender As Object, e As EventArgs)
        MsgBox(CType(sender, MenuItem).Text)
    End Sub

Recommended Answers

All 3 Replies

try this:

        Dim NewItem As ToolStripMenuItem = New ToolStripMenuItem
        NewItem.Text = Line
        AddHandler NewItem.Click, AddressOf NewItem_Click
        ContextMenuStrip1.Items.Add(NewItem)

maybe try firts to debug your codes to see what is the problem.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.