cs_AntiSlash
Messages postés61Date d'inscriptiondimanche 21 juillet 2002StatutMembreDernière intervention23 avril 2003 2 déc. 2002 à 21:59
Petit cadeau pour toi: une petite source qui te donne les codes ascii des touches que tu presses... Mets dans une nouvelle form un textbox (text1) et un timer (timer1 avec 10 en intervalle) et lance le prog !
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim a As Integer, b As Integer
Private Sub Timer1_Timer()
For a = 1 To 255
b = GetAsyncKeyState(a) If b -32767 Then Text1 CStr(a)
Next a
End Sub