Menu Editor VB de tasarım zamanında menu yaratmanın en ideal yoludur. Ama olurda calışma zamanında menu oğeleri eklememiz gerekirse bunu yapmak VB ile cok oklaydır. Sonucta diğer kontrollerden bir farkı yoktur.
Menu Editor VB de tasarım zamanında menu yaratmanın en ideal yoludur. Ama olurda calışma zamanında menu oğeleri eklememiz gerekirse bunu yapmak VB ile cok oklaydır. Sonucta diğer kontrollerden bir farkı yoktur.
Eğer bir ornekle bunu acıklayacak olursak once Menu Editor den mnuShortCut isimli bir menu ekleyelim forma. Daha sonra ona mnuSubItem isimli bir submenu ekleyelim. Caption ı "Menu Item 1" ve index i 0 yapalım.
Ve aşağıdaki kodları ekleyelim
Private Sub Form_Load()
Dim x As Integer
For x = 1 To 4
Load mnuSubItem(x)
mnuSubItem(x).Caption = "Menu Item " & x + 1
mnuSubItem(x).Visible = True
Next x
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = vbRightButton Then
Me.PopupMenu mnuShortCut
End If
End Sub
Private Sub mnuSubItem_Click(Index As Integer)
MsgBox Index
End Sub
Bu arada bu menuyu shortcut menu olarak goruntulemek icin formun mousedown olayına popupmenu yontemini ekledik.
Kolay Gelsin
__________________