荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: lingling (别时茫茫江浸月), 信区: Program
标 题: 用VB实现鼠标的隐藏
发信站: BBS 荔园晨风站 (Sun Nov 8 23:00:27 1998), 站内信件
用VB实现鼠标的隐藏
在 Windows的大多数场合下，鼠标都是始终可
见的。但在有些场合需隐藏鼠标，使之不可见
，以免影响屏幕画面的整体效果，如屏幕保护
程序运行时，鼠标就是不可见的。在VB中可通
过调用 Windows API函数ShowCursor()来非常
轻松地实现鼠标的隐藏。方法如下：方法一：
首先在全局模块中声明函数如下：
Declare Function ShowCursor Lib ″User″
(ByVal bShow As Interger) As Interger
当bShow为True时，系统内部计数器加1；当bS
how为False时，计数器减1。只有当计数器值
大于或等于零时，鼠标才显示出来。通常情况
下鼠标是显示的，并且计数器值为 0，因此只
需简单地调用ShowCursor（）函数即能实现鼠
标的隐藏与显示：
Sub Form—Load
Dim rc％
rc％=ShowCursor(False) ′隐藏鼠标
……
rc％=ShowCursor(True) ′显示鼠标
End sub
此种方法下ShowCursor(False)与ShowCursor(
True)必须成对使用，否则有可能造成鼠标“
丢失”的现象，即调用若干次ShowCursor(Tru
e)也有可能显示不出鼠标来(视内部计数器值
而定)。当鼠标“丢失”时，可通过重新启动W
indows来找回鼠标。
方法二：
采用如下程序，可以不成对调用ShowCursor（
）函数：
′隐藏鼠标
While ShowCursor(False)>=0 ′将计数器值减至1
Wend
′显示鼠标
While ShowCursor(True)<0′将计数器值加至 0
Wend
(浙江 陈剑波)
--
* 月如眸，如我，如心，如无桨之舟，始也漂泊，终也流浪。
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 172.24.13.80]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店