Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
For i As Integer = 32 To 128 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then TextBox1.Text = TextBox1.Text + Chr(i) End If Next i
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick For i As Integer = 32 To 128 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then TextBox1.Text = TextBox1.Text + Chr(i) End If Next End Sub