打印本文 打印本文 关闭窗口 关闭窗口
让VisualBasic实现隐藏Mouse
作者:武汉SEO闵涛  文章来源:敏韬网  点击数619  更新时间:2009/4/23 18:57:56  文章录入:mintao  责任编辑:mintao
让VisualBasic实现隐藏Mouse
http://www.tongyi.net  作者:小宇   出处:中国电脑教育报     点击:228  

    我们经常在影像播放器和系统进入屏幕保护时看不到鼠标,这是因为系统刻意将鼠标隐藏起来的原因。这种“隐藏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

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

打印本文 打印本文 关闭窗口 关闭窗口