module1.bas

来自「新手学习vb语言的实用资料于其对计算机语言做出相应了解的教材」· BAS 代码 · 共 34 行

Attribute VB_Name = "Module1"
'1、隐藏/显示鼠标。

Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

'2、定位鼠标。

Type rect
    sbleft As Long
    sbtop As Long
    sbright As Long
    sbbottom As Long
End Type

Public Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

'3、移动鼠标。

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

'4、鼠标坐标。

Type POINTAPI
    x As Long
    y As Long
End Type

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

'鼠标键数。

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long