快捷搜索:

用vb实现隐藏Mouse的实例

Type POINTAPI

x As Long

y As Long

End Type

Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" _

(lpPoint As POINTAPI) As Long

'暗藏Mouse

Public Sub toHideCursor()

ShowCursor 0

End Sub

'显示Mouse

Public Sub toShowCursor()

ShowCursor 1

End Sub

您可能还会对下面的文章感兴趣: