让VisualBasic实现隐藏Mouse
【打印文章】
作者:小宇
我们经常在影像播放器和系统进入屏幕保护时看不到鼠标，这是因为系统刻意将鼠标隐藏起来的原因。这种“隐藏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
是不是很简单？大家快来试试吧！
我们经常在影像播放器和系统进入屏幕保护时看不到鼠标，这是因为系统刻意将鼠标隐藏起来的原因。这种“隐藏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
是不是很简单？大家快来试试吧！
本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】