Szybki kod na dodanie menu do naszego obiektu po kliknięciu na niego prawym przyciskiem myszy. Aby to zrobić zaznaczamy element i w jego Zdarzeniach znajdujemy: MauseUp Po utworzeniu uchwytu wpisujemy kod
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp If e.Button <> Windows.Forms.MouseButtons.Right Then Return Dim cms = New ContextMenuStrip Dim item1 = cms.Items.Add("Element 1") item1.Tag = 1 AddHandler item1.Click, AddressOf menuChoice Dim item2 = cms.Items.Add("Element 2") item2.Tag = 2 AddHandler item2.Click, AddressOf menuChoice Dim item3 = cms.Items.Add("Element 3") item3.Tag = 3 AddHandler item3.Click, AddressOf menuChoice '... cms.Show(Me, e.Location) End Sub Private Sub menuChoice(ByVal sender As Object, ByVal e As EventArgs) Dim item = CType(sender, ToolStripMenuItem) Dim selection = CInt(item.Tag) Select Case item.Tag Case 1 MsgBox("Wybrałeś pierwszy element") Case 2 MsgBox("Wybrałeś drugi element") Case 3 MsgBox("Wybrałeś trzeci element") '... End Select End Sub |
Efekt jak poniżej:
