basmouse.bas

功能强大的API

Attribute VB_Name = "basMouse"
'****************************************
'汉化: 小聪明       [e-mail]
'小聪明的主页VB版:  http://coolzm.533.net
'****************************************
Option Explicit
Private lShowCursor As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

'
'隐藏鼠标
Public Sub HideMouse()
   Dim result As Integer
   
   Do
      lShowCursor = lShowCursor - 1
      result = ShowCursor(False)
   Loop Until result < 0
   
End Sub

'
' 回复鼠标原状态,可以利用此函数在HideMouse和ShowMouse之间相互切换
Public Sub RestoreMouse()
   If lShowCursor > 0 Then
      Do While lShowCursor <> 0
         ShowCursor (False)
         lShowCursor = lShowCursor - 1
      Loop
   ElseIf lShowCursor < 0 Then
      Do While lShowCursor <> 0
         ShowCursor (True)
         lShowCursor = lShowCursor + 1
      Loop
   End If
End Sub


'
' 显示鼠标
'
Public Sub ShowMouse()
   Dim result
   
   Do
      lShowCursor = lShowCursor - 1
      result = ShowCursor(True)
   Loop Until result >= 0

End Sub