Question

如何使用VB隐藏鼠标

Answer 1

但在有些场合需隐藏鼠标，使之不可见，以免影响屏幕画面的整体效果，如屏幕保护程序运行时，鼠标就是不可见的。在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　　'显示鼠标