VB ile Mouse Koordinatları

[alimania]

Bu dersimizde VB ile mouse işlemleri üzerinde çalışacağız ve Visual Basic'te API kullanarak mouse imlecinin yerini tespit etme ve değiştirmeyi göreceğiz.

Öncelikle 1 adet timer ekliyoruz.

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

Mouse konumlandırmak için:

X = 250 Y = 300 yer = SetCursorPos(X,Y)