Question

如何控制鼠标点击本窗体某一位置如（10，10）

RT

Answer 1

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const MK_LBUTTON = &H1

Private Sub Command1_Click()
PostMessage Me.hwnd, WM_LBUTTONDOWN, MK_LBUTTON, 10 * 65536 + 10
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Circle (X, Y), 50, vbRed '画个圆标记一下点击的点
End Sub