
Eklemeniz Gereken araçlar:
* 1 tane Timer
Private Type POINTAPI X As Long Y As Long End Type Declare Function GetCursorPos Lib "user32.dll" (ByVal lpPoint As POINTAPI) As Long Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As Long Private Sub Timer1_Tick() Dim yerler As POINATPI ykr = GetCursorPos(yerler) Me.Caption = yerler.X & "," & yerler.Y End Sub
Konumlandırmanız için
X = 250 Y = 300 yer = SetCursorPos(X,Y)
ads
Hiç yorum yok: