仅在特定表单控件 (TextBox) 上启用快捷菜单

Question

这与this question密切相关，尚未发布答案。

我有一个表单，我希望只有在该表单上的文本框内单击时才启用快捷菜单（右键单击弹出的菜单）（在其他任何地方都禁用）。问题是该选项似乎只对整个表单是全局的。

将表单的 ShortcutMenu 设置为 False，我可以在 TextBox 的“On Enter”事件中使用“ShortcutMenu = True”将其设置为 True，这样在输入 TextBox 之前右键单击什么也不做。这样做的问题是，当用户进入TextBox时，如果他在表单中的其他任何地方右键单击，就会出现右键菜单，这不是我想要的。

在同一个 TextBox 的“On Exit”事件中使用“ShortcutMenu = False”禁用 ShortcutMenu 有效，但前提是用户点击了另一个控件，而不是之前，这不能解决问题。

在某个地方执行右键单击操作之前，是否有运行“ShortcutMenu = False”？ （进入文本框后）。类似于“鼠标离开此控件”事件？

Answer 1

您可以通过动态创建 2 个自定义快捷菜单来完成此操作。一个基本上是整个表单的虚拟快捷菜单，其中没有控件，另一个将是您希望出现在实际控件上的那个。我将这些设置为临时的。您需要将自定义控件调整为右键单击时要显示的内容。

Private Const CntrlShortcutMenu As String = "CntrlShortCutMenu"
Private Const FormShortcutMenu As String = "FormShortCutMenu"

Private Sub Form_Load()
 Call CreateControlShortcutMenu("txtvalue1")
 Call CreateDummyShortcutMenuonForm
End Sub

Private Sub Form_Unload(Cancel As Integer)
 DeleteShortCutMenu (CntrlShortcutMenu)
 DeleteShortCutMenu (FormShortcutMenu)
End Sub

Private Sub CreateDummyShortcutMenuonForm()
    Call DeleteShortCutMenu(FormShortcutMenu)
    Call CommandBars.Add(FormShortcutMenu, 5, False, True)
    Me.ShortcutMenuBar = FormShortcutMenu
End Sub

Private Sub DeleteShortCutMenu(MenuName As String)
  On Error Resume Next
  CommandBars(MenuName).Delete
End Sub

Private Sub CreateControlShortcutMenu(CntrlName As String)

On Error GoTo errhandler

    Dim cmdShortcutMenu As Object 'Office.CommandBar

    Call DeleteShortCutMenu(CntrlShortcutMenu)

    Set cmdShortcutMenu = CommandBars.Add(CntrlShortcutMenu, 5, False, True)

        With cmdShortcutMenu

             With .Controls.Add(Type:=10)
                .Caption = "Text Editing"
                .Controls.Add Type:=1, Id:=19   'Copy
                .Controls.Add Type:=1, Id:=22   'Paste
                .Controls.Add Type:=1, Id:=2941 'Select All
             End With

             With .Controls.Add(Type:=10)
                .Caption = "Filter"
                .Controls.Add Type:=1, Id:=210  'Sort Ascending
                .Controls.Add Type:=1, Id:=211  'Sort Descending
                .Controls.Add Type:=1, Id:=640  'Filter By Selection
                .Controls.Add Type:=1, Id:=3017 'Filter Excluding Selection
                .Controls.Add Type:=2, Id:=2863 'Filter For
                .Controls.Add Type:=1, Id:=605  'Remove Filter/Sort
             End With

        End With

        Me.Controls(CntrlName).ShortcutMenuBar = CntrlShortcutMenu

ExitSub:
    Set cmdShortcutMenu = Nothing
    Exit Sub
errhandler:
    Debug.Print "CreateControlShortcutMenu", Err.Description
    Resume ExitSub
End Sub