Butona Kısayol Ekleme

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

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...
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 9 yıl önce
mesela ben denedim olmadı mesela en baştaki "Public Class Form1" yazısının altındaki boşluğa yazdım ilk verdiğiniz "Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer" kodunu ve timer ın içinede "GetAsyncKeyState(vbKeyl) Then button6_click" yazdım neden olmaadı acaba?
• 8 yıl önce
kardeş güzel anlatmıssın saol ben denedim oldu ama söle birsey yapmak istiyorum acaba yardım edermisin (W) ye basınca (w) yapıyorum ama üstüne (S) basıyorum hala (w) gidiyor ben (S) bastığımda (s) gitsin (w) bastığımda (w) gitsin istiyorum yardım edersen sevinirim teşekkürler.
• 6 yıl önce
"PInvokeStackImbalance was detected" hatası verir bu kod. Ama şu kod hata vermez: Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Integer * VB.NET İçindir.
• 6 yıl önce
Arkadaşlar vb6.0 da yaptığım bir programım var bu programın exesi pasif olduğunda enter tuşuna basılması ile aktif olması için nasıl bir kod eklemeliyim..

Yukarı Git