GetAsyncKeyState fonksiyonu basit olarak tuşa basılı olup olmadıgını belirtir.



Yazılı anlatım ve ornek ;

Kod:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Function Basılırsa(Key As Integer) As Boolean Basılırsa = CBool(GetAsyncKeyState(Key)) 'GetAsyncKeyState(Key) Fonksiyonunu Basılırsa Olarak Degiştirdim End Function Private Sub Form_Load() Timer1.Interval = 1 End Sub Private Sub Timer1_Timer() 'If Then Koşulu Yaratıyoruz 'ornek Tuşlar 'vbKeySpace 'vbKeyF6 'vbKeyF2 gibi If Basılırsa(vbKeyF9) Then ' F9 Basılırsa MsgBox ("Aboo67") ' MsgBox acılcak End If End Sub 'iyi Gunler 'Aboo67 'Anlatim Ve Kodlama Bana Aittir Aboo67

https://www.facebook.com/Aboo67
https://twitter.com/#!/myprojectz
__________________