Koxpumuzu TuşLa SaklayalıM

Projeyi açıyoruz.Form a 1 adet timer ve Check ekliyoruz.
'Formun kod kısmına şunları yapıştırıyoruz.

Kod:Bunu Koxpun En Üst Kısmına Ekleyin)
Kod:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'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
Form1.left=-9999
else
Form1.left=0
end if
Kod:
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Kod:
Private Sub Timer1_Timer()
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
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


Bu Fonksiyonu Kullanara Townda Attırabilirsiniz...


alıntıdır