slm arkadaşlar
access de mause imlecini forum üzerinde x ve y kordinatlarına göre istediğim yere yönlendire bilirmiyim çok acil lazım[/align]
Son Düzenleme: 20/10/2011, 17:19, Düzenleyen: adsoft.
'Mouse Oynatma
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, _
ByVal Y As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, _
lpPoint As POINTAPI) As Long
Sub MoveMouseCursor(ByVal X As Long, ByVal Y As Long, _
Optional ByVal hWnd As Long)
If hWnd = 0 Then
SetCursorPos X, Y
Else
Dim lpPoint As POINTAPI
lpPoint.X = X
lpPoint.Y = Y
ClientToScreen hWnd, lpPoint
SetCursorPos lpPoint.X, lpPoint.Y
End If
End Sub
Private Sub Detail_Click()
MoveMouseCursor 400, 400 'Mouse u 400, 400 kordinatlarına taşır.
End Sub
Private Sub Form_Timer()
MoveMouseCursor Int(Rnd * 400), Int(Rnd * 400) 'Mouse u Rastgele kordinatlara taşır.
End Sub