轻松隐藏鼠标

Author: 释月 Date: 1998年第33期 13版

　　在VB5.0程序设计中要想隐藏鼠标是非常容易的，调用Win32API函数int ShowCursor（BOOL bShow）即可，bShow是一个布尔变量。在调用时将bShow设为False或0，鼠标将隐藏（注意鼠标仍起作用，但我们看不见它了），将bShow设为True或1，鼠标将恢复显示。
　　（1）新建一个窗体，在工程中新建一个模块，将如下代码写入工程中的模块：
　　Declare Function ShowCursor Lib ″user32″ （ByVal bShow As Long） As Long
　　′隐藏Mouse过程
　　Public Sub toHideCursor（）
　　ShowCursor （False）　′两种不同的调用方法都行
　　End Sub
　　′显示Mouse
　　Public Sub toShowCursor（）
　　ShowCursor 1
　　End Sub
　　（2）在窗体中新建两个CommandButton控件，分别命名为Command1、Command2。在Command1_Click事件中加入一句代码：
　　Call toHideCursor
　　在Command2_Click事件中加入一句代码：
　　Call toShowCursor
　　运行程序，单击Command1，发现鼠标不见了。别急，按键盘的Tab键，将焦点切换到Command2时，按回车键。哈哈！鼠标又有了！