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) '隐藏鼠标
◆◆
评论读取中....
请登录后再发表评论!
◆◆
修改失败,请稍后尝试