recuper les infos de touches

Question

voila j'arrive bien a recuperer les infos lorsque je tape sur un touche de cette facon la 

if keycode = 37 then

mais comment je peut faire pour recuper l'info si deux touche sont appuyer simultanement par exemple la fleche du haut et la fleche de droite

Gobillot · Answer

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
    Dim T38 As Integer
    Dim T39 As Integer
    
    T38 = GetAsyncKeyState(38)
    T39 = GetAsyncKeyState(39)
    
    If T38 < 0 And T39 < 0 Then
       Beep
       End If
       
End Sub

Daniel

blackcatthc · Answer

merci pour l'aide

Gobillot · Answer

si tu veux les autres touches, il faut faire une boucle:

Dim i As Integer
Dim R as Integer

'pour toutes les touches
For i = 0 to 255
R = GetAsyncKeyState(38)
if R < 0 then
'faire ce que tu as à faire
end if
next

en fait de 0 à 31 ça sert à rien
j'ai pas trouvé au-dessus de 221 (ça doit dépendre du clavier)
faut éviter 255 (qui n'est pas vraiment une touche)

'après rectification
for i =32 to 221
R = GetAsyncKeyState(38)
next

Daniel

Gobillot · Answer

Sorry, j'ai laissé (38) alors qu'il faut mettre (i) ~~R = GetAsyncKeyState(38)~~ R = GetAsyncKeyState(i) Daniel

Recuper les infos de touches

4 réponses

Discussions similaires