繁体中文
设为首页
加入收藏

推荐

公告

推荐文章
· 用VisualBasic编写进度栏...
· 让VisualBasic实现隐藏Mouse
· VisualBasic 6编程中的汉...
热点文章
广告

当前位置:设计首页 >> 程序开发 >> VisualBasic >> 让VisualBasic实现隐藏Mouse

让VisualBasic实现隐藏Mouse

2007-10-23 12:34:46  作者:佚名  来源:互联网  浏览次数:12  文字大小:【】【】【
简介:  我们经常在影像播放器和系统进入屏幕保护时看不到鼠标,这是因为系统刻意将鼠标隐藏起来的原因。这种“隐藏Mouse”的功能其实并不难,我们利用Visual Basic的API函数ShowCursor即可轻松实现,只需要编写程序 ...

  我们经常在影像播放器和系统进入屏幕保护时看不到鼠标,这是因为系统刻意将鼠标隐藏起来的原因。这种“隐藏Mouse”的功能其实并不难,我们利用Visual Basic的API函数ShowCursor即可轻松实现,只需要编写程序如下代码即可:

  Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

  Public Sub toHideCursor ()

  ShowCursor 0 '隐藏Mouse

  End Sub

  Public Sub toShowCursor ()

  ShowCursor 1 '显示Mouse

  End Sub

  是不是很简单?大家快来试试吧!



相关文章