53.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 14 行

如何隐藏鼠标指针？


一般来说有两种方法可以隐藏鼠标的指针。一种是用一个透明图标代替鼠标指针，并将MousePointer属性设为99。另一种是用API函数来隐藏指针。代码如下： 

Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As _
Long) As Long ‘ 将该代码放在模块的声明段中 
RetFunct = ShowCursor(False) ‘ 隐藏指针
RetFunct = ShowCursor(True) ‘ 显示指针