首页 / 软件开发 / VB / 让VisualBasic实现隐藏Mouse

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

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