求助:如何获取窗口外的鼠标坐标
如何获取窗口外的鼠标坐标?新手上路,请多关照!
Option Explicit
Private Declare Function GetCursorPos Lib \"user32\" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Timer1_Timer()
Dim p As POINTAPI
GetCursorPos p
Form1.Caption = p.x & \" \" & p.y
End Sub