Projeyi açıyoruz.Form a 1 adet timer ve Check ekliyoruz.
'Formun kod
kısmına şunları yapıştırıyoruz.
Kod:
Private Declare Function
GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Kod:
'burada
tuşlarımızı tanımlıyoruz.
Kod:
Private Const VK_F1= &H70'Burasıda
Formun En Başına
Check Koduna:
Kod:
if
Check1.value=1then
Kod:
Form1.left=-9999
else
Form1.left=0
end if
Kod:
Private Sub Form_Load()
Kod:
Timer1.Interval = 100
End
Sub
Kod:
Private Sub Timer1_Timer()
Kod:
If
GetAsyncKeyState(VK_F1) Then ' eğer F1 e basılırsa alttaki komutu
'çalıştır.
if
check1.value=1then
check1.value=0
else
Check1.value=1
End If '
koşulumuzu bitiriyoruz.
end if
End Sub
Örnek:
Kod:
VK_NUMPAD7 0x67
ise projenize
eklerken
Kod:
Private Const VK_NUMPAD7 =&H67
olarak
ekleyin
Kod:
VK_NUMPAD7 0x67 VK_BACK 0x08
Kod:
VK_NUMPAD8
0x68 VK_TAB 0x09
VK_NUMPAD9 0x69 VK_RETURN 0x0D
VK_MULTIPLY 0x6A VK_SHIFT
0x10
VK_ADD 0x6B VK_CONTROL 0x11
VK_SEPARATOR 0x6C VK_MENU
0x12
VK_SUBTRACT 0x6D VK_PAUSE 0x13
VK_DECIMAL 0x6E VK_CAPITAL
0x14
VK_DIVIDE 0x6F VK_ESCAPE 0x1B
VK_F1 0x70 VK_SPACE 0x20
VK_F2 0x71
VK_END 0x23
VK_F3 0x72 VK_HOME 0x24
VK_F4 0x73 VK_LEFT 0x25
VK_F5 0x74
VK_UP 0x26
VK_F6 0x75 VK_RIGHT 0x27
VK_F7 0x76 VK_DOWN 0x28
VK_F8 0x77
VK_PRINT 0x2A
VK_F9 0x78 VK_SNAPSHOT 0x2C
VK_F10 0x79 VK_INSERT
0x2D
VK_F11 0x7A VK_DELETE 0x2E
VK_F12 0x7B VK_LWIN 0x5B
VK_NUMLOCK
0x90 VK_RWIN 0x5C
VK_SCROLL 0x91 VK_NUMPAD0 0x60
VK_LSHIFT 0xA0 VK_NUMPAD1
0x61
VK_RSHIFT 0xA1 VK_NUMPAD2 0x62
VK_LCONTROL 0xA2 VK_NUMPAD3
0x63
VK_RCONTROL 0xA3 VK_NUMPAD4 0x64
VK_LMENU 0xA4 VK_NUMPAD5
0x65
VK_RMENU 0xA5 VK_NUMPAD6 0x66