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

ساخت شورتکات منو در اکسس ۲۰۱۶

شورتکات : 

سه تا کامند باتن در کامندباربصورت MsoPopup برای پرینت ، رفرش و بستن فرم ContactList

اسم ماکروی بالا mcrAddShortcutMenu را در قسمت پراپرتی ShortCutMenu تایپ می شود با AddMenu در Add-In ریبون قابل مشاهده هست.

کامند باتن در CommandBar و ساب منو بهمراه کامند ها

بصورت زیر نمایان خواهد شد. برای ایجاد ساب منو در تصویر بالا  از AddMenu استفاده شده و یک ماکروی با نام SubMenuCommands با فرمان ساب ماکرو داخلش ساخته شده و در MacroName اظهارشده .

 در باکس ادیت  SubMacro می توان  از کلیدهایی برای انجام کارهائی استفاده کرد یا عملکرد آنها را غیر فعال کرد  فرضا     p^ منظور Ctrl+p هست  فرضا شما می خواهید فرمان انجام نشود در نتیجه در خط بعدی CancelEvent را می توانید انتخاب و ماکرو را با عنوان AutoKeys ( فقط به این نام ) ذخیره کنید.

در سطح پیشرفته تر یعنی استفاده از Commandar.Controls Properties باید حتما از رفرنس Microsoft Object Library انتخاب شود تا بتوانید از  پراپرتیهای آن استفاده نمائید.

https://docs.microsoft.com/en-us/office/vba/api/office.commandbar.controls