精华区文章阅读

发信人: windoe (为中国电信做贡献), 信区: program
标  题: 用VB实现鼠标的隐藏
发信站: 听涛站 (Fri Mar 10 19:32:12 2000), 转信
    在Windows的大多数场合下，鼠标都是始终可见的。但在有些场合需隐藏鼠标，使之
不靠见，以免影响屏幕画面的整体效果，如屏幕保护程序运行时，鼠标就是不可见的。
在VB中可通过调用WindowsAPI函数ShowCursor()来非常轻松地实现鼠标的隐藏。方法如
下：
    方法一：
    首先在全局模块中声明函数如下：
    DeclareFunctionShowCursorLib″User″(ByValbShowAsInterger)AsInterger
    当bShow为True时，系统内部计数器加1；
    当bShow为False时，计数器减1。只有当计数器值大于或等于零时，鼠标才显示出来
。屯常情况下鼠标是显示� ，并且计数器值为0，因此只需简单地调用ShowCursor（）
函数即能实现鼠标的隐藏与显示：
    SubForm-Load
    Dimrc％
    rc％=ShowCursor(False)′隐藏鼠标
    ......
    rc％=ShowCursor(True)′显示鼠标
    End sub
    此种方法下ShowCursor(False)与ShowCursor(True)必须成对使用，否则有可能造成
鼠北�"丢失"的现象，即调用若干次Show Cursor(True)也有可能显示不出鼠标来(视内部
计数器值而定)。当鼠标"丢失"时，可通过重新启动Windows来找回鼠标。
    方法二：
    采用如下程序，可以不成对调用ShowCursor（）函数：
    ′隐藏鼠标
    WhileShowCursor(False)>=0′将计数器值减至1
    Wend
    ′显示鼠标
    WhileShowCursor(True)<0′将计数器值加至0
    Wend (浙江陈剑波)
本文出自：《电脑报》1998年1月12日第2期12版
--By Kammi's SuperPost General Version
--
夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。

computer 版 (精华区)