Klavyeden bir tuşa bastığımızda ilgili buton çalışacak şekilde bir kısa yol ekleyelim.

Bu dersimizde herkesin işine yarayacak bir konuyu ele alalım.Butonumuza klavyden bir kısayol tuşu ekleyelim.

Örneğin "A" tuşuna basıldığında command1 butonumuz çalışsın....Bunun için forma:

- 1 Adet Command Buton
- 1 Adet Timer ( İntervali 100 olsun veya dahada hassas olmasını istiyorsanız azaltabilirsiniz...

Öncelikle tanımlamalamızı yapalım.Bunu formun boş bir yerine tıklayın.Form_Load Kısmına Değil. ve şu kodu yazın:

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

Bu kod klavye tuşları içindir.Klavye ile ilgili bir işlem yaptığımızda yukarıdaki tuşu unutmayalım hiç bir zaman...

Timer Nesnesinin içine de:

If GetAsyncKeyState(vbKeyA) Then Command1_Click

yazalım. Burdaki mantık Şöyle:
GetAsyncKeyState(vbKeyİSTEDİĞİNTUŞ) Then ÇALIŞMASINI İSTEDİĞİNİZ OLAY

Evet A Tuşuna bastık Command 1'e de şunu yazın (çalışmasını test için):

msg "SaNaLKuRS.NeT"

Hepsi Bu kadar Umarım Yardımcı olmuşumdur...
Kolay Gelsin...