实现鼠标的隐藏

作者:admin 日期:2008-05-21

字体大小: 小中大

'当bShow为False时，计数器减1。只有当计数器值大于或等于零时，鼠标才显示出来。通常情况下鼠标是显示的，并且计数器值为0，因此只需简单地调用ShowCursor（）函数即能实现鼠标的隐藏与显示：
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Form_Load()
Dim rc
    'rc = ShowCursor(False) '隐藏鼠标
    rc = ShowCursor(True) '显示鼠标
End Sub

'此种方法下ShowCursor(False)与ShowCursor(True)必须成对使用，否则有可能造成鼠标“丢失”的现象，
'即调用若干次Show Cursor(True)也有可能显示不出鼠标来(视内部计数器值而定)。

'    '方法二:
'　　采用如下程序，可以不成对调用ShowCursor（）函数：
'    '隐藏鼠标
'    While ShowCursor(False) >= 0 '将计数器值减至1
'    Wend
'    '显示鼠标
'    While ShowCursor(True) < 0 '将计数器值加至0
'    Wend