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不起作用，是否有任何模仿mouseout的东西？意思是我只希望它在鼠标离开按钮时点击，并且第一次进入

修改

我在一个新表单上尝试了这个并且它完美地运行

但是在这个表单上它继续按下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

模拟鼠标输入/输出

1 个答案: