模拟鼠标输入/输出

Question

当用户输入按钮时，我试图隐藏我的光标，并在他们离开按钮时显示它。

到目前为止，我正在使用MouseEnter和MouseLeave事件

Private Sub btnbeis_MouseEnter(sender As System.Object, e As System.EventArgs) Handles btnBeis.MouseEnter
   Dim btn As Button = DirectCast(sender, Button)
   btn.FlatStyle = FlatStyle.Flat
   Cursor.Hide()
End Sub

Private Sub btnbeis_mouseLeave(sender As System.Object, e as system.EventArgs) Handles btnbeis.MouseLeave
    Dim btn As Button = DirectCast(sender, Button)
    btn.FlatStyle = FlatStyle.Standard
    cursor.Show()
End Sub

但是，由于每次用户移动鼠标时MouseEnter都会被击中，所以它会继续隐藏鼠标。

我发现了mouseout事件，但是它不适用于vb，有什么可以模仿鼠标输出的东西吗？这意味着我只想在鼠标离开按钮并第一次进入时点击它。

编辑

我在一种新的表格上试过这个，它工作得很好。

但是在这个表单上，它继续击中mouseEnter和MouseLeave，当我调试它时，它继续从mouseEnter到MouseLeave，然后返回到MouseEnter。

我在mouseMove下没有任何代码，所以这不是问题所在。

谢谢!

Answer 1

Sub Button1MouseLeave(sender As Object, e As EventArgs)
    Cursor.Show()
End Sub

Sub Button1MouseEnter(sender As Object, e As EventArgs)
    Cursor.Hide()
End Sub