|
Option Explicit
Private Type typPoint
X As Long
Y As Long
End Type
Private Declare Sub mouse_event Lib "user32.dll" _
(ByVal dwFlags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal dwdata As Long, _
ByVal dwExtraInfo As Long)
Private Declare Function ClientToScreen Lib "user32" _
(ByVal hWnd As Long, lpPoint As typPoint) As Long
Private Declare Function SetCursorPos Lib "user32" _
(ByVal X As Long, ByVal Y As Long) As Long
Private Const MOUSEEVENT_LEFTDOWN = &H2
Private Const MOUSEEVENT_LEFTUP = &H4
Private Sub cmdStart_Click()
ControlClick cmdZiel
End Sub
Private Sub ControlClick(ctrl As Object)
Dim Punkt As typPoint
With ctrl.Parent
Punkt.X = .ScaleX(ctrl.Width, vbTwips, vbPixels) \ 2
Punkt.Y = .ScaleY(ctrl.Height, vbTwips, vbPixels) \ 2
End With
ClientToScreen ctrl.hWnd, Punkt
SetCursorPos Punkt.X, Punkt.Y
mouse_event MOUSEEVENT_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENT_LEFTUP, 0, 0, 0, 0
End Sub
Private Sub cmdZiel_Click()
Label1.Caption = "Ziel-Button wurde geklickt"
End Sub
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Label1.Caption = ""
End Sub
|
|