• Lunes 23 de Diciembre de 2024, 03:28

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

jorge64k

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: moverse con las flechas
« en: Domingo 8 de Diciembre de 2002, 06:50 »
0
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

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: moverse con las flechas
« Respuesta #1 en: Domingo 8 de Diciembre de 2002, 08:23 »
0
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

  • Miembro activo
  • **
  • Mensajes: 38
    • Ver Perfil
    • http://kickme.to/shaolin
Re: moverse con las flechas
« Respuesta #2 en: Lunes 9 de Diciembre de 2002, 11:23 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 142
  • Nacionalidad: 00
    • Ver Perfil
    • Print preview y grabar PDF en Visual Basic 6
Re: moverse con las flechas
« Respuesta #3 en: Lunes 9 de Diciembre de 2002, 16:51 »
0
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

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: moverse con las flechas
« Respuesta #4 en: Martes 10 de Diciembre de 2002, 06:24 »
0
: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.

javierbalk

  • Miembro MUY activo
  • ***
  • Mensajes: 142
  • Nacionalidad: 00
    • Ver Perfil
    • Print preview y grabar PDF en Visual Basic 6
moverse con las flechas
« Respuesta #5 en: Martes 10 de Diciembre de 2002, 07:05 »
0
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