vb.net - 悬停在子控件上时如何避免触发 MouseLeave 事件？

Question

我正在尝试这样做，如果您将鼠标悬停在面板中，它会改变其颜色，而当您将鼠标悬停在标签中时，面板不会更改其颜色或返回默认值，让我展示我正在尝试的图片解释:
如果您没有将鼠标悬停在任何内容上，它将处于默认状态:

如果您将鼠标悬停在其中，面板颜色将发生变化:

然后，如果您将鼠标悬停在标签中，面板颜色不应改变:

但相反，如果您将鼠标悬停在标签上，面板颜色会恢复为默认值。这是我的代码:

Private Sub Panel13_MouseEnter(sender As Object, e As EventArgs) Handles Panel13.MouseEnter
    Panel13.BackColor = Color.DarkGreen
End Sub

Private Sub Panel13_MouseLeave(sender As Object, e As EventArgs) Handles Panel13.MouseLeave
    Panel13.BackColor = Color.LimeGreen
End Sub

我该如何解决这个问题？有什么方法可以使代码干净，还是必须复制和粘贴代码并替换单词？

Answer 1

您可以使用 GetChildAtPoint 检查鼠标光标是否在子控件上的方法。
替换您的 MouseLeave 中的代码具有以下内容的事件处理程序:

Dim childControl = Panel13.GetChildAtPoint(Panel13.PointToClient(Cursor.Position))
If childControl Is Nothing Then
    Panel13.BackColor = Color.LimeGreen
End If