DropDown MenuBar

نمایش منوبار بعد از کلیک کردن روی باتن در همان مختصات بعد از ساختن CommandBar از مجموعه ی DLL های  متصل به اکسس ، ولی قابلیت چپ چین شدن رو ندارند بنابراین در پروژه های فارسی کاربردی ندارند.

Public objPopup As Object

Private Sub Command13_Click()
    Set objPopup = CommandBars("Menu Bar")
    objPopup.ShowPopup
    Set objPopup = Nothing

End Sub

ShowPopup در اکسس

Private Sub Song_List_MouseUp(Button As Integer, Shift As Integer, X As Single,

(Y As Single

ساخت شورتکات منو توسط تابع با پوزیشن msoBarPopup

SetUpContextMenu

If Button = acRightButton Then

CommandBars("MyListControlContextMenu").ShowPopup

End If

End Sub