原作者:www.upwinder.com 添加时间:2007-09-01 原文发表:2007-08-31 人气:5 来源：未知

---

在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

---

• 怎样在VB中使用OLEDRAGDROP 事件从Windows • 处理加了密码的MDB文件 • 处理过程时的鼠标显示 • 为什么用VB开发数据库---VB数据库入门 • 解析VB的事件驱动编程 • 显示频道 • Visual Basic 概念 • 用VB学做“黑客”程序 • 切分字符串 • 字符串中包含双引号

• 字符串中文的问题 • VB中使用数据窗体设计器插件 • VB编程的必备技巧 • Visual Basic中DataCombo 和 DataList 控件 • 获得系统中鼠标的键数 • 用VB实现全屏幕图形界面及动态功能提示 • 播放资源文件文件中的声音 • Visual Basic 程序创建闪烁(标语)屏 • 把多个文本框的内容保存起来（保存到一个文 • 利用timeGetTime函数更精准地计算时间差

---

本文章所属分类：首页 → VB