Autor Tema: Re: moverse con las flechas (Leído 1794 veces)

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.

cpmario

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

Code

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

javierbalk

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

jorge64k

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.

javierbalk

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