Visual Basic - Al pulsar dos teclas a la vez las detecte

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Al pulsar dos teclas a la vez las detecte

Publicado por davidote (27 intervenciones) el 30/01/2005 20:05:39
Hola, una pregunta: estoy haciendo un juego y quiero que, cuando jueguen dos jugadores a la vez y los dos pulsen una tecla a la vez, detecte las dos y no solamente una: con Keydown o Keypress o Keyup solo me detecta una. ¿Como lo podria hacer?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Al pulsar dos teclas a la vez las detecte

Publicado por Benjo (679 intervenciones) el 30/01/2005 22:05:31
'En un formulario crea cinco etiquetas con los siguientes caption
'Arriba,Abajo,Derecha, Izquierda,Enter
'Luego en el form
Option Explicit

Dim Pulsada(127) As Boolean ' Se crea una matriz de valores Boolean
'Lo que significa que podés configurar
'hasta 127 teclas
Dim Detener As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Pulsada(KeyCode) = True
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Pulsada(KeyCode) = False
End Sub

Private Sub Form_Load()
Me.Show

Detener = False

Do
lblArriba.Visible = Pulsada(vbKeyUp)
lblAbajo.Visible = Pulsada(vbKeyDown)
lblDerecha.Visible = Pulsada(vbKeyRight)
lblIzquierda.Visible = Pulsada(vbKeyLeft)
lblENTER.Visible = Pulsada(vbKeyReturn)

DoEvents ' es muy imortante para darle el control al sistema
Loop Until Detener
End Sub
Private Sub Form_Unload(Cancel As Integer)
Detener = True
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar