组织活动的app:怎么样在VB中隐藏鼠标?
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
关注一下哈哈