不幸的是,运行时没有启用上下文菜单,但是,您可以为您的应用程序重新创建其中一些菜单。
例如,在我的中,我创建了一个基本的复制/剪切/粘贴上下文菜单,如下所示:
'-----------------------------------------------------------------------------'
' General Clipboard context menu, the basis for all forms '
'-----------------------------------------------------------------------------'
Public Function CreateGeneralClipBoardMenu()
On Error Resume Next
CommandBars("GeneralClipboardMenu").Delete
Dim cmb As CommandBar
Set cmb = CommandBars.Add("GeneralClipboardMenu", msoBarPopup, False, False)
With cmb
.Controls.Add msoControlButton, 21, , , True ' Cut
.Controls.Add msoControlButton, 19, , , True ' Copy
.Controls.Add msoControlButton, 22, , , True ' Paste
End With
Set cmb = Nothing
End Function
只需在应用程序启动时调用此代码一次,上下文菜单将随处可见。
The 需要 msoControlButton Id 列表 http://social.msdn.microsoft.com/Forums/pl-PL/accessdev/thread/44960673-2ce4-4217-8505-3c7ea7c6485cMSDN 上的线程展示了如何类似地添加排序和过滤选项。