如何在 VB6 中将弹出菜单放置在按钮正下方

Question

我有一个 VB6 应用程序。 有一个主要形式。 它包含一个用户控件。 该用户控件有一个按钮控件。 当我单击按钮时，我希望弹出一个菜单，以便菜单的左上角位于按钮左下角的正下方。

如果我这样做：

frm.PopupMenu mnuBlah

菜单出现在鼠标所在的位置。

如果我尝试提供坐标，

frm.PopupMenu mnuBlah, btn.Left, btn.Top + btn.Height

数学结果会完全错误，并且菜单显示的内容会偏离目标。

我不太确定 PopupMenu 调用需要什么类型的坐标以及如何计算按钮下方的位置。

Answer 1

PopupMenu 需要弹出菜单的窗体的 ScaleMode 中的 X 和 Y 坐标。 在这种情况下，这可能意味着用户控件。

但这实际上取决于您处理 MouseDown 事件的位置。 （您不会通过 Click 事件获得坐标。）如果您的事件处理程序位于用户控件本身中，那么使用提供的坐标应该不会有任何问题。 但是，您发布的代码缺少 Flags 参数（应为 vbPopupMenuLeftAlign），这可以解释为什么您的坐标数学不起作用。 另外，您必须将菜单定义为用户控件本身的属性。

另一方面，如果您从用户控件中引发 MouseDown 事件，并在包含窗体中处理它，则弹出菜单必须是包含窗体的属性。 在这种情况下，您可以忽略X和Y参数，但您必须自己进行坐标计算。 按钮的左边缘相对于主窗体，将是用户控件的左边缘和控件内按钮的偏移量之和。 类似的数学运算可以计算按钮的底部边缘。 换句话说：

Private Sub UserControl1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    PopupMenu mnuPopup, vbPopupMenuLeftAlign, _
        UserControl1.Left + UserControl1.Button.Left, _
        UserControl1.Top + UserControl1.Button.Top + UserControl1.Button.Height
End Sub

请注意，这还要求您将按钮 (Button) 公开为用户控件的属性，以便您可以访问其 Left、Top 和 Height 属性。 这很简单：

Public Property Get Button() As CommandButton
    Set Button = Command1
End Property

引发事件也很简单； 只需放在

Public Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

用户控件的顶部，然后

RaiseEvent MouseDown(Button, Shift, X, Y)

在用户控件中按钮的 MouseDown 事件中使用：

最后，要在主窗体中连接事件处理程序，请使用代码编辑窗口顶部的两个下拉列表。 从左侧选择用户控件，然后从右侧选择 MouseDown 事件。 这将插入事件处理程序，您可以使用上面的代码填充该事件处理程序。

至于哪种方式更好，在用户控件本身内部处理菜单，并在选择一个菜单时引发有意义的事件可以将事情分开。 用户控件处理 UI 工作，让主应用程序处理响应用户选择所需执行的任何操作，而无需担心菜单的放置。

所以你实际上不会引发 MouseDown 事件； 相反，您应该引发 OptionOneSelected、OptionTwoSelected 或 OptionThreeSelected 等事件。 （当然，更有意义的名称会更好。）

无论如何，我希望这还不算太晚......

Answer 2

您需要将 vbPopupMenuLeftAlign 标志传递给 PopupMenu 方法。 请注意，这与 PopupMenu 方法的文档相矛盾（微软真的可能犯了一个错误吗？），但它确实有效。

frm.PopupMenu mnuBlah, vbPopupMenuLeftAlign, btn.Left, btn.Top + btn.Height

Answer 3

您需要包含父容器的高度和左侧值（这通常是表单，但也可以是框架或其他容器）。

我想你正在寻找这样的东西：

btn.Parent.PopupMenu mnuBlah, vbPopupMenuLeftAlign , btn.Left, btn.Top + btn.Height