api:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Metodo d'uso
private sub timer1_timer()
If GetAsyncKeyState(k) <> 0 Then
tastopremuto= ..
cosechehoscritto=cosechehoscritto + tastopremuto
endif
end sub
dove k deve essere un numero da 1 a 255 e devono essercene tanti per coprire l'intera tastiera.
ti conviene per lettere e numeri raggrupparli in cicli. a a che lettera corrisponde k lo trovi su internet. basta cercare GetAsyncKeyState
|