teclas de cursor - flechas
Hola gente del foro, estoy experimentando recien con visual basic y quisiera saber como puedo hacer para que al pulsar las teclas de cursor (flechas del teclado)pueda generar el movimiento de un ubjeto. Como se daran cuenta recien estoy empezando en esto de la programacion y espero que me puedan ayudar. Gracias
hola Alfredo, lo que te ha dicho Cristian está bien, pero según el tipo de objetos que tengas en el formulario no te funcionará.
Deberás poner entonces la propiedad del Form, KeyPreview = True.
Saludos.
Deberás poner entonces la propiedad del Form, KeyPreview = True.
Saludos.
Hola
Esto lo puedes hacer asi:
Coloca en el formulario un Shape1(En la caja de herramientas está).
Coloca el siguiente codigo en el evento KeyDown del formulario, esto porque tomaremos las teclas que se precionen .
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' hacemos un caso para saber la tecla que sepreciono
'(Esto es parecido a un if por si no lo has utilizado aun)
Select Case KeyCode
'Miramos si la tecla presionada fue la de Arriba
Case vbKeyUp
Shape1.Top = Shape1.Top - 50
'Miramos si la tecla presionada fue la de Abajo
Case vbKeyDown
Shape1.Top = Shape1.Top + 50
'Miramos si la tecla presionada fue la de la Izquierda
Case vbKeyLeft
Shape1.Left = Shape1.Left - 50
'Miramos si la tecla presionada fue la de la Derecha
Case vbKeyRight
Shape1.Left = Shape1.Left + 50
End Select
End Sub
Espero esto te sirva.
Si tienes una duda en esto no dudes en escribirme
Chao
Esto lo puedes hacer asi:
Coloca en el formulario un Shape1(En la caja de herramientas está).
Coloca el siguiente codigo en el evento KeyDown del formulario, esto porque tomaremos las teclas que se precionen .
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' hacemos un caso para saber la tecla que sepreciono
'(Esto es parecido a un if por si no lo has utilizado aun)
Select Case KeyCode
'Miramos si la tecla presionada fue la de Arriba
Case vbKeyUp
Shape1.Top = Shape1.Top - 50
'Miramos si la tecla presionada fue la de Abajo
Case vbKeyDown
Shape1.Top = Shape1.Top + 50
'Miramos si la tecla presionada fue la de la Izquierda
Case vbKeyLeft
Shape1.Left = Shape1.Left - 50
'Miramos si la tecla presionada fue la de la Derecha
Case vbKeyRight
Shape1.Left = Shape1.Left + 50
End Select
End Sub
Espero esto te sirva.
Si tienes una duda en esto no dudes en escribirme
Chao
