Re: Menu oluşturma kod kısmında
Posted: Sat Dec 18, 2021 11:29 pm
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