VB.NET|Klavyedeki Tuşları Uygulama ile ilişkilendirme

Klavyedeki Tuşları Uygulama ile ilişkilendirme




Bu derste basit bir örnekle klavyedeki tuşları formla ilişkilendireceğiz.

Dersimize Başlamadan Önce Sizler İçin Tuş Hexleri ve sabit değerleri olan bir makale buldum kaynak dosya linkinden mutlaka indiriniz...




Bu Dersimizde Mantığı Anlamanız için Boş bir forumda Bastığımız Tuşları Gösteren Bir Olay Yapalım..

Projeye Sadece Bir Timer Nesnesi Ekleyelim ve enabled Özelliğini False Yapalım.

Projemizi Açıp Gerekli Olan Api'yi Tanımlıyoruz....



Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Hemen Altına Size Aşağıda Verdiğim Tablodan Yararlanarak Tuşumuzun hex kodunu buluyoruz.

Örneğin, Bu derste F1 Tuşunu Ele Alalım.. F1 Tuşunun Hex kodu 70'tir. Başına: &H70 yazdığımızda F1 Tuşunu Tanımlamış oluruz. Aşağıdaki gibi:


Private Const VK_F1 = &H70

Form_Load Bölümüne:


Timer1.Interval = 1
Timer1.Enabled = True

Burda Timerimizi başlatttık intervali 1 olduğu için Aşırı Hassas Duruma Geldi. Timer'in içine F1'in sabit değeriyle birlikte:


If GetAsyncKeyState(VK_F1) Then 'eğer F1 e basılırsa alttaki komutu çalıştır.
MsgBox "F1 Tuşuna Basıldı" 'Buraya kendi komutunuzu ekleyebilirsiniz.
End If 'koşulumuzu bitiriyoruz.

Kolay Gelsin..

Şöylede olur kardeş vk_f1 yerine..

If GetAsyncKeyState(Keys.Enter) Then
MsgBox("ENTERA basıldı")
End If

bana tum tuşların kodlarınıatarmısınız???