aramirez
11 de Septiembre del 2003

Hola a todos.
Les estaría muy agradecido si alguien me regalara un código fuente en el que yo pueda usar las teclas de direccion en un programa determinado, por ejemplo usando el Keypress de algún control que yo quiera que se ejecute algo al presionar flecha abajo.
Por favor si me captan la idea... ó si necesitan mas información diganme.
gracias.

Jose Oscar
11 de Septiembre del 2003

Simplemente coloca un formulario sin ningun control y pega el siguiente codigo , caada ves que presiones flecha arriba te combiara el color de fondo y flecha abajo te dara un mensaje

Las constantes de teclas son
VBKey Solo cambia la letra final por ejemplo
VbKeyA
VbKeyB
VbKeyC
VbKeyF1
VbKeyF2
VbKeyScape

etc

espero que esto te sirva, no pongas ningun control en el formulario o no podra tener el foco a menos que todos los controles esten desabilitados

Suerte



Dim Col As Integer



Private Sub Form_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyUp And Col < 16 Then
Form1.BackColor = QBColor(Col)
Col = Col + 1
If Col > 15 Then
Col = 0
End If
Else
If KeyCode = vbKeyDown Then
MsgBox "Lo siento presionaste una tecla no permitida"
End If
End If

End Sub