怎么样在VB中隐藏鼠标？

Question

谢谢1楼的回复，但是那样退出也不会把鼠标显示出来。我的鼠标丢了！

Answer 1

Windows中的API函数ShowCursor提供了一种简单的隐藏鼠标的办法。
ShowCursor的申明如下：
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
当你让bShow为0的时候，鼠标指针消失，让bShow为-1的时候鼠标指针会重新出现，下面这段代码可以让大家看看效果：
　　在新建的Form代码中输入如下代码：
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Dim blnShow As Boolean
Private Sub Form_Click()
　　blnShow = Not blnShow
　　ShowCursor blnShow
End Sub
Private Sub Form_Load()
　　blnShow = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
ShowCursor True
End Sub

Answer 2

就是用showcursor这个api，不过要注意：

windows维持着一个内部显示计数；倘若bShow为TRUE，那么每调用一次这个函数，计数就会递增1；反之，如bShow为FALSE，则计数递减1。只有在这个计数大于或等于0的情况下，指针才会显示出来

Answer 3

你在程序退出的时候在调用ShowCursor(TRUE)显示不就行了

Answer 4

1.把鼠标移动到屏幕最右侧
2.把鼠标砸了

Answer 5

mouse=hidden