中科新闻网组织活动的app:怎么样在VB中隐藏鼠标？
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 15:48:42
谢谢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
就是用showcursor这个api，不过要注意：
windows维持着一个内部显示计数；倘若bShow为TRUE，那么每调用一次这个函数，计数就会递增1；反之，如bShow为FALSE，则计数递减1。只有在这个计数大于或等于0的情况下，指针才会显示出来
1.把鼠标移动到屏幕最右侧
2.把鼠标砸了
你在程序退出的时候在调用ShowCursor(TRUE)显示不就行了
mouse=hidden
关注一下哈哈