SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jorge64k en Domingo 8 de Diciembre de 2002, 06:50
-
Hola a todos los que lean esto, alguien sabe como puedo saber si se presionan las flechas del teclado, es para un juego, estoy utilizando
Private Sub Form_KeyPress(KeyAscii As Integer)
Tecla = KeyAscii
......
End Sub
pero no me identifica las flechas, cualquier idea y/o sugerencia se las agradecere muchisimo.
-
Usa el evento KeyDown.
El código siguiente te muestra en la ventana del debuger los códigos de las teclas que presiones.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print KeyCode, Shift
End Sub
-
Hola, como dice la respuesta anterior lo q tengas q hacer debes hacerlo en el evento keydown y no en el keypress, a continuacion te pongo los valores del las del keycode de cada cursor:
arriba->38
derecha->39
izq->37
abajo->40
Suerte, con el juego
-
Hola Jorge:
Otra forma de identificar a esas teclas es usar las contantes de vb:
vbKeyRight ' derecha
vbKeyLeft ' izquierda
vbKeyUp ' arriba
vbKeyDown ' abajo
Saludos,
Javier
-
:o Muchisimas gracias por su ayuda, ya quedo ese asunto, ahora quiero agregarle otra cosilla al juego y me pregunto si me podrian ayudar de nuevo, quiero desaparecer el cursor del mouse alguien ¿sabe como lograrlo?, de nuevo gracias y nos vemos.
-
Hola Jorge:
Acá va el código:
Private Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
Private Sub MostrarMouse(nValor As Boolean)
Dim Aux As Long
If nValor Then
Aux = ShowCursor(True)
Do Until Aux >= 0
Aux = ShowCursor(True)
Loop
Else
Aux = ShowCursor(False)
Do Until Aux < -5
Aux = ShowCursor(False)
Loop
End If
End Sub
Saludos,
Javier