不幸的是,运行时没有启用上下文菜单,但是,您可以为您的应用程序重新创建其中的一些。
例如,我创建了一个基本的复制/剪切/粘贴上下文菜单,如下所示:
'-----------------------------------------------------------------------------'
' 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
只需在您的应用程序启动时调用此代码一次,上下文菜单将随处可用。
MSDN 上的Need a list of msoControlButton Ids 线程展示了如何类似地添加排序和过滤选项。