开发学院WEB开发综合 用VB实现鼠标的隐藏 阅读

用VB实现鼠标的隐藏

 2006-02-27 11:43:58 来源:WEB开发网   
核心提示:在Windows的大多数场合下,鼠标都是始终可见的,用VB实现鼠标的隐藏,但在有些场合需隐藏鼠标,使之不可见,当鼠标“丢失”时,可通过重新启动Windows来找回鼠标,以免影响屏幕画面的整体效果,如屏幕保护程序运行时
在Windows的大多数场合下,鼠标都是始终可见的。但在有些场合需隐藏鼠标,使之不可见,以免影响屏幕画面的整体效果,如屏幕保护程序运行时,鼠标就是不可见的。在VB中可通过调用WindowsAPI函数ShowCursor()来非常轻松地实现鼠标的隐藏。方法如下:
方法一:
首先在全局模块中声明函数如下:
DeclareFunctionShowCursorLib"User"(ByValbShowAsInterger)AsInterger
当bShow为True时,系统内部计数器加1;当bShow为False时,计数器减1。只有当计数器值大于或等于零时,鼠标才显示出来。通常情况下鼠标是显示的,并且计数器值为0,因此只需简单地调用ShowCursor()函数即能实现鼠标的隐藏与显示:
SubForm—Load
Dimrc%
rc%=ShowCursor(False) '隐藏鼠标
……
rc%=ShowCursor(True) '显示鼠标
Endsub
此种方法下ShowCursor(False)与ShowCursor(True)必须成对使用,否则有可能造成鼠标“丢失”的现象,即调用若干次ShowCursor(True)也有可能显示不出鼠标来(视内部计数器值而定)。当鼠标“丢失”时,可通过重新启动Windows来找回鼠标。
方法二:
采用如下程序,可以不成对调用ShowCursor()函数:
'隐藏鼠标
WhileShowCursor(False)>=0'将计数器值
'减至-1
Wend
'显示鼠标
WhileShowCursor(True)<0 '将计数器值加至0
Wend->

Tags:VB 实现 鼠标

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接