|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:12:07 |
|
|
在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 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:12:07 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]