网站 › Visual Basic › VB中获取屏幕当前鼠标坐标

admin 发表于 2010-5-26 21:21:01

VB中获取屏幕当前鼠标坐标

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 lP As POINTAPI
GetCursorPos lP
Label1.Caption = Str(lP.x) + "/" + Str(lP.y)
End Sub

maowei 发表于 2010-9-29 11:55:37

我好像看过了·

查看完整版本: VB中获取屏幕当前鼠标坐标