Menu oluşturma kod kısmında

[ahmet]

Biraz daha kolayı burada

Code: Select all

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'Asıl menü oluşturuluyor
        Dim sagMenu As New ContextMenuStrip


        For a = 1 To 10
            Dim menuoge As New ToolStripMenuItem 'menü öğesi
            menuoge.Text = a & " numaralı öğe"
            AddHandler menuoge.Click, AddressOf Ahmet_click 'tıklandığında çalışacak sub bildiriliyor
            sagMenu.Items.Add(menuoge)

            For b = 1 To 3
                Dim altmenu As New ToolStripMenuItem 'alt menü öğesi
                altmenu.Text = b & " numaralı alt öğe"
                AddHandler menuoge.Click, AddressOf Ahmet_click
                menuoge.DropDownItems.Add(altmenu)
            Next
        Next

        sagMenu.Items.Add(mnYeniBarkodOlustur) 'varolan başka bir menünün öğesi ekleniyor (opsiyonel)
End sub

    Private Sub Ahmet_click(sender As Object, e As EventArgs)
        MsgBox(TryCast(sender, ToolStripMenuItem).Text)
    End Sub