Jag har ett litet problem med tangentbords knappar. Typ sätt en variabel. Borde lösa ditt problem. Har ju inte VB på Denna datorn:Flera tangentbords tryckningar samtidigt
Hur gör man för att man ska kunna trycka på A och B samtidigt.
T.ex om man trycker på så körs den koden men om man samtidigt trycker på B så kan man inte köra de båda koderna samtidigt. Hur gör jag för att kunna trycka på flera tangentbordskanppar samtidigt?
/mSv: Flera tangentbords tryckningar samtidigt
'Form: Form1
Option Explicit
Private mKeyA as boolean
Private mKeyB as boolean
Private Sub Form_KeyDown(KeyAscii as integer, Shift as Integer)
Select Case KeyAscii
Case vbKeyA
mKeyA = True
Case vbKeyB
mKeyB = True
End Select
If mKeyA And mKeyB Then
MsgBox "Du har tryckt ned A och B!"
End If
End Sub
Private Sub Form_KeyUp(KeyAscii as integer, Shift as Integer)
Select Case KeyAscii
Case vbKeyA
mKeyA = False
Case vbKeyB
mKeyB = False
End Select
End Sub