mousemovements.bas

来自「一个同学用VB编写的局域网通讯程序」· BAS 代码 · 共 28 行

Attribute VB_Name = "MouseMovements"
Option Explicit



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

Public Type POINTAPI
    x As Long
    Y As Long
    End Type




Public Function GetCurrentX() As Long
Dim Position As POINTAPI
    GetCursorPos Position
    GetCurrentX = Position.x
End Function

Public Function GetCurrentY() As Long
Dim Position As POINTAPI
    GetCursorPos Position
    GetCurrentY = Position.Y
End Function