用VB实现鼠标的隐藏

Author: 陈剑波 Date: 1998年第02期 12版

　　在Windows的大多数场合下，鼠标都是始终可见的。但在有些场合需隐藏鼠标，使之不可见，以免影响屏幕画面的整体效果，如屏幕保护程序运行时，鼠标就是不可见的。在VB中可通过调用Windows API函数ShowCursor（）来非常轻松地实现鼠标的隐藏。方法如下：
　　方法一：
　　首先在全局模块中声明函数如下：
　　Declare Function ShowCursor Lib "User"（ByVal bShow As Interger） As Interger
　　当bShow为True时，系统内部计数器加1；当bShow为False时，计数器减1。只有当计数器值大于或等于零时，鼠标才显示出来。通常情况下鼠标是显示的，并且计数器值为0，因此只需简单地调用ShowCursor（）函数即能实现鼠标的隐藏与显示：
　　Sub Form—Load
　　Dim rc％
　　rc％=ShowCursor（False）　＇隐藏鼠标
　　……
　　rc％=ShowCursor（True）　＇显示鼠标
　　End sub
　　此种方法下ShowCursor（False）与ShowCursor（True）必须成对使用，否则有可能造成鼠标“丢失”的现象，即调用若干次ShowCursor（True）也有可能显示不出鼠标来（视内部计数器值而定）。当鼠标“丢失”时，可通过重新启动Windows来找回鼠标。
　　方法二：
　　采用如下程序，可以不成对调用ShowCursor（）函数：
　　＇隐藏鼠标
　　While ShowCursor（False）>=0 ＇将计数器值
　　　　　　　　　　　　　　　　＇减至－1
　　Wend
　　＇显示鼠标
　　While ShowCursor（True）<0　＇将计数器值加至0
　　Wend