鼠标从底部离开时按钮不隐藏

Question

我有一个表单，我希望在表单的最底部边缘放置按钮，与边框没有间隙。这些按钮应为“自动隐藏”，因此它们仅在鼠标位于表单的下 20 像素时才会显示。所以我使用 MouseMove 事件来触发它，如下面的代码。但是，如果鼠标离开表单的底部边缘，也就是按钮所在的位置，那么按钮显然会保留。但我希望他们隐藏起来。所以我需要为此目的通过其他事件隐藏按钮。因此，我尝试将它们隐藏在表单的 MouseLeave 事件中。但这会使按钮无法点击并且处于不稳定状态，当鼠标移到按钮上时会闪烁。为什么会这样？我怎样才能避免这个问题来获得这样的自动隐藏功能？

  Private Sub ZgScale_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

    If e.Y > Me.ClientSize.Height - 30 Then
        Button1.Visible = True
    Else
        Button1.Visible = False
    End If
End Sub

Private Sub ZgScale_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.MouseLeave
    Button1.Visible = False
End Sub

Answer 1

当鼠标不再直接在该控件（或窗体）上时，将触发 MouseLeave 事件。
如果鼠标移到子控件上，该事件将触发。

你需要检查鼠标是否不再在表单上，​​像这样：

If Not Me.ClientRectangle.Contains(Me.PointToClient(e.Location)) Then
    Button1.Visible = False
End If

编辑：已修复

Answer 2

Windows 为这种情况提供了内置的直接支持。也暴露在 Windows 窗体和 WPF 中。获得 MouseMove 事件后，将控件上的 Capture 属性设置为 True。这会强制将所有鼠标消息定向到控件，即使鼠标移出控件窗口也是如此。

一旦您看到它移动到控件边界之外，请将 Capture 设置回 false 并隐藏您的控件。请注意，当用户单击鼠标时会关闭捕获功能，因此您可能必须在之后将其重新打开。虽然它应该是自动的，但您会得到另一个 MouseMove 事件。如果用户真的快速移动鼠标可能会失败。