GetAsyncKeyState with no repeat
Posted on 2004-09-09
I am trying to make a program wich will register every pressing of A,B,C keys but I need do detect these keys exactly with no repeating i try this way:
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyA) Then Label1.Caption = Label1.Caption + "A"
If GetAsyncKeyState(vbKeyB) Then Label1.Caption = Label1.Caption + "B"
If GetAsyncKeyState(vbKeyC) Then Label1.Caption = Label1.Caption + "C"
there is a problem when user hold down some of keys it continues to write that key in label.
Is there a way to detect a global KeyUp property with GetAsyncKeyState and avoid this problem?