Visual Basic Popup Menü Nasıl Yapılır

Visual Basic Popup Menü Nasıl Yapılır

4 Mayıs 2021 0 Yazar: ODEL

Öncelikle Menü Editör ile bir Menü oluşturun.

Asagidaki gibi:

                    

Button Menu (Menu name: mnuBtn, Visible: False - Unchecked)
....SubMenu Item 1 (Menu name: mnuSub, Index: 0)
....SubMenu Item 2 (Menu name: mnuSub, Index: 1)
....SubMenu Item 3 (Menu name: mnuSub, Index: 2)
....SubMenu Item 4 (Menu name: mnuSub, Index: 3)

bir tane de command button hazırlayın ve aşağıdaki kodu yerleştirin.

                    

Private Sub mnuSub_Click(Index As Integer)
Call MsgBox("Kliklenen menü: " & Index + 1, vbExclamation)
End Sub

Private Sub Command1_Click()
Call PopupMenu(mnuBtn)
End Sub

Not: Isterseniz daha güzel bir etki için “Call PopupMenu(mnuBtn)” çağrısı yerine

                    

Call PopupMenu(Menu:=mnuBtn, X:=Command1.Left, Y:=Command1.Top + _Command1.Height)

veya

                    

Call PopupMenu(mnuBtn, vbPopupMenuCenterAlign, Command1.Left + _(Command1.Width / 2), Command1.Top + Command1.Height)