Klavye İle Mouseyi Hareket Ettirmeyi Nasıl Yapacağımız Hakkında Bir Ornek Gostereceğim. Elimden Geldiği Kadar Acık Anlatmaya Calıştım; Zaten Cok Kolay Bir İş
Şimdi Ben Ok Tuşları İle Mouseyi 4 Yone Goturebilen Bir Kod Yaptım. Siz Capraz Gitmesini Sağlayabilir ve Hızını Ayarlayabilirsiniz! Programı Acık Proje Olarak Uploadladım, Buyurun Buradan İndirebilirsiniz:http://www.tekdosya.com/files/XG4988...NoShe.rar.html
Ayrıca Kodlarını Burada da Vereyim, Belki İndiremezsiniz:
Kod:
Public Class Form1 Private Declare Function SetCursorPos Lib "user32" (ByVal X As Integer, ByVal Y As Integer) As Integer ' User32.dll' yi Cağırdık. Dim X As Integer ' X Adında Değişken Atadık. Dim Y As Integer ' Y Adında Değişken Atadık. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' Form Yuklendiğinde (Ekrana Geldiğinde) Me.KeyPreview = True ' Basılan Tuşların Algılanmasını Sağladık. End Sub Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown ' Klavyeden Herhangi Bir Tuşa Basıldığında; Dim poz As Point = MousePosition ' Poz Adında Point Oluşturduk. Bu Point' i Mouse'nin Pozisyonuna Eşitledik. Select Case e.KeyCode ' Durum Değişkenini Başlattık. Case Keys.Up ' Eğer Klavyeden Yukarı Ok Tuşuna Basılırsa; X = poz.X ' X, Mouse Yatay Pozisyonuna Eşit Olsun. Y = poz.Y - 1 ' Y, Mouse Dikey Pozisyonundan 1 Değer Azalsın; Cunku Y Değeri Duştukce Yukseklik Artar. Case Keys.Down ' Eğer Klavyeden Aşağı Ok Tuşuna Basılırsa; X = poz.X ' X, Mouse Yatay Pozisyonuna Eşit Olsun. Y = poz.Y + 1 ' Y, Mouse Dikey Pozisyonundan 1 Değer Artsın; Cunku Y Değeri Artıkca Yukseklik Duşer. Case Keys.Left ' Eğer Klavyeden Sol Ok Tuşuna Basılırsa; X = poz.X - 1 ' X, Mouse Yatay Pozisyonundan 1 Değer Azalsın; Cunku X Değeri Azaldıkca Sola Gider. Y = poz.Y ' Y, Mouse Dikey Pozisyonuna Eşit Olsun. Case Keys.Right ' Eğer Klavyeden Sağ Ok Tuşuna Basılırsa; X = poz.X + 1 ' X, Mouse Yatay Pozisyonundan 1 Değer Artsın; Cunku X Değeri Arttıkca Sağa Gider. Y = poz.Y ' Y, Mouse Dikey Pozisyonuna Eşit Olsun. End Select ' Durum Değişkenini Bitirdik. SetCursorPos(X, Y) ' X ve Y Değişkenini İmlec Pozisyonu Olarak Ayarladık. End Sub ' Not: -1, +1 Değerlerini Buyuturseniz; Ornek: -5, +5. Mouse'nin Hareket Hızı Artar. End Class
Bir Yorumu Eksik Gormeyin Lutfen
__________________