Question

VB 记录鼠标的点击位置

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
x As Long
y As Long
End Type

Private Sub Timer1_Timer()
Dim a As POINTAPI

GetCursorPos a
Label1.Caption = a.x
Label2.Caption = a.y
End Sub
这个是显示鼠标位置
我想在窗体外点击左键时记录位置，就是在点击左键时在把位置给text1,text2就可以~
都没明白我的意思，我要记录窗体外的点击

Answer 1

给你个最简单的

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X
Text2.Text = Y
End Sub

Answer 2

Label1.Caption = a.x
Label2.Caption = a.y
改为：
text1.text=a.x
text2.text=a.y

Answer 3

应该还有个鼠标击键的API
这个只是鼠标位置的api

我知道你的意思,不过我不知道那个击键的API啊.
再找找看