[XL-2003] Comment récuperer la dernière valeur tapée au clavier.

[cantachau]

Bonsoir,
je cherche une fonction qui m'enverrai la dernière touche qui aurai été appuyé sur le clavier.
Une sorte de GetKey de la Ti ( pour ceux qui programmait sur caltoss dans leur jeunesse).
Merci et bonne fête de Noël !!

[Theze]

Bonjour,

Tu peux regarder du coté de l'API GetKeyState :

Code :

1
2
 
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

C'est la capture de l'évènement qui ne va pas être simple, peut être avec un timer (voir du coté de l'API GetTickCount)

Code :

1
2
 
Declare Function GetTickCount Lib "Kernel32" () As Long

et effectuer dans la boucle, une comparaison avec les valeurs des clés virtuelles mais cette boucle, pour ne manquer aucun enfoncement de touche, risque de poser des problèmes de fluidité, à voir ?

Hervé.