Butona Kısayol Tuşu Ekleme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
By TarantuLa FaHRi

By TarantuLa FaHRi

Üye
4 Şub 2012
214
1
Çankırı
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
 
C

Coder10

Katılımcı Üye
27 Tem 2012
867
0
Private Sub Form_KeyPress(KeyAscii As Integer)
Key = a
MsgBox "Merhaba"
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.