Selamün Aleyküm Arkadaşlar;
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...
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...
