Question

在指定窗体的指定位置单击 vb 如何实现

在指定窗体的指定位置单击 vb 如何实现

高手指定一下

QQ:361311495 愿意指定的加

Answer 1

VB在屏幕(而不是窗体)的指定位置模拟鼠标单击动作

Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dX As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4

Call SetCursorPos(x, y) '鼠标移动到屏幕坐标 X,Y
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '单击一次

Answer 2

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

'左上角
If X > 0 And X < 200 And Y > 0 And Y < 200 Then
MsgBox "你点中了指定的位置了", , "恭喜"
End If

End Sub