让VisualBasic实现隐藏Mouse

gnuljf

让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

　　是不是很简单？大家快来试试吧！