当我从 VB6 的上下文菜单中选择一个选项时，如何阻止显示额外的上下文菜单？

Question

我正在维护一个带有 VB6 表单的应用程序，其中包含 ComponentOne VSFlexGrid 7.0。我们有一个自定义上下文菜单，允许用户执行一些专门的复制和粘贴操作。最近，我们遇到了以下问题：

1. 突出显示其中一个单元格中的某些文本。
2. 右键单击单元格，文本仍突出显示。
3. 选择上下文菜单选项之一。
4. 发生请求的上下文菜单操作。
5. 另一个上下文菜单类似于所示的 此处，其中包含“从右到左阅读顺序”、“打开 IME”和“重新转换”等选项。

如何使第二个上下文菜单消失？我已经尝试过 Microsoft 知识库描述 的方法，但到目前为止没有成功。我的 WindowProc 函数如下：

Function WindowProc(ByVal hw As Long, _
                    ByVal uMsg As Long, _
                    ByVal wParam As Long, _
                    ByVal lParam As Long) As Long

    Select Case uMsg
        Case WM_RBUTTONUP
            frmMain.PopupMenu frmMain.mnuPopUp
        Case Else
            WindowProc = CallWindowProc(lpPrevWndProc, hw, _
                                       uMsg, wParam, lParam)
    End Select
End Function

复制操作发生后，我看到的 uMsg 值为 15 (WM_PAINT) 和 32 (WM_SETCURSOR)。我还注意到，当我没有突出显示单元格中的文本时，表单级 MouseUp 事件会触发，但当我突出显示单元格中的文本时，它不会触发。

对 VB6 和/或 ComponentOne 有更深入了解的人能否给我更多有关事件发生顺序的详细信息，以及如何防止显示此额外的上下文菜单？

Answer 1

您应该处理 WM_CONTEXTMENU 来显示上下文菜单，而不是 WM_RBUTTONUP （因为不仅仅是右键单击可以触发它）。

Answer 2

如果用户右键单击，则在 BeforeMouseDown 事件中尝试设置 Cancel = True。