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...
Formun En Üstüne Bu kodu:
Kod:
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 içine de bu kodu:
Kod:
If GetAsyncKeyState(vbKeyA) Then Command1_Click
Evet A Tuşuna bastık Command 1'e de şunu yazın (çalışmasını test için):
MsgBox "Hoşgeldiniz" veya başka bişey yazabilirsiniz
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...
Formun En Üstüne Bu kodu:
Kod:
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 içine de bu kodu:
Kod:
If GetAsyncKeyState(vbKeyA) Then Command1_Click
Evet A Tuşuna bastık Command 1'e de şunu yazın (çalışmasını test için):
MsgBox "Hoşgeldiniz" veya başka bişey yazabilirsiniz