ALPA
Site Kurucusu
Mesaj Sayısı : 815
Nerden : Ankara
Kayıt tarihi : 02/03/09
 Rep Puanı : 32
 |  Konu: koxp 1728 Kısayol tuşu ekleme  C.tesi Nis. 04, 2009 2:07 pm | |
| ‘Projeyi açıyoruz.Form a 1 adet timer ekliyoruz.
‘Formun kod kısmına şunları yapıştırıyoruz. - Kod:
-
Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
‘burada tuşlarımızı tanımlıyoruz.
Private Const VK_F1= &H70 ’F1 tuşunu tanımladık Başka tuşlarda ekleyebilirsinz.
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_F1) Then ‘ eğer F1 e basılırsa alttaki komutu çalıştır.
Msgbox “F1 e basıldı” ’Buraya kendi komutunuzu ekleyebilirsiniz.
End If ‘ koşulumuzu bitiriyoruz.
End Sub Proje Link:http://www.dosyaupload.net/368exp ders2 tuş.rar BAZI TUŞ KODLARI
Tuş kodlarını eklerken başındaki 0x yerine &H koyun hepsini tektek yazacaktım ama uun sürer.
örnek:VK_NUMPAD7 0×67 ise projenize eklerken
Private Const VK_NUMPAD7 =&H67 olarak ekleyin - Kod:
-
VK_NUMPAD7 0×67 VK_BACK 0×08
VK_NUMPAD8 0×68 VK_TAB 0×09
VK_NUMPAD9 0×69 VK_RETURN 0×0D
VK_MULTIPLY 0×6A VK_SHIFT 0×10
VK_ADD 0×6B VK_CONTROL 0×11
VK_SEPARATOR 0×6C VK_MENU 0×12
VK_SUBTRACT 0×6D VK_PAUSE 0×13
VK_DECIMAL 0×6E VK_CAPITAL 0×14
VK_DIVIDE 0×6F VK_ESCAPE 0×1B
VK_F1 0×70 VK_SPACE 0×20
VK_F2 0×71 VK_END 0×23
VK_F3 0×72 VK_HOME 0×24
VK_F4 0×73 VK_LEFT 0×25
VK_F5 0×74 VK_UP 0×26
VK_F6 0×75 VK_RIGHT 0×27
VK_F7 0×76 VK_DOWN 0×28
VK_F8 0×77 VK_PRINT 0×2A
VK_F9 0×78 VK_SNAPSHOT 0×2C
VK_F10 0×79 VK_INSERT 0×2D
VK_F11 0×7A VK_DELETE 0×2E
VK_F12 0×7B VK_LWIN 0×5B
VK_NUMLOCK 0×90 VK_RWIN 0×5C
VK_SCROLL 0×91 VK_NUMPAD0 0×60
VK_LSHIFT 0xA0 VK_NUMPAD1 0×61
VK_RSHIFT 0xA1 VK_NUMPAD2 0×62
VK_LCONTROL 0xA2 VK_NUMPAD3 0×63
VK_RCONTROL 0xA3 VK_NUMPAD4 0×64
VK_LMENU 0xA4 VK_NUMPAD5 0×65
VK_RMENU 0xA5 VK_NUMPAD6 0×66 | |
|
Vecchia-Edizione
Level 40
Mesaj Sayısı : 46
Kayıt tarihi : 29/05/09
Rep Puanı : 0
| | Konu: Geri: koxp 1728 Kısayol tuşu ekleme C.tesi Mayıs 30, 2009 6:37 pm | |
| ehehe bunuda payLaşmışsın sağol | |
|
