Otra de nuevo...
¿Me podrías explicar el procedimiento para moverme de un cuadro de texto a otro usando solo las flechas del teclado?
Disculpa tanta molestia y mil gracias nuevamente...
Terramar (saludos desde Mexico)
Disculpa tanta molestia y mil gracias nuevamente...
Terramar (saludos desde Mexico)
Respuesta de fvomaster
1
¿Veamos con otro ejemplo?
Primero, debemos utilizar el evento keydown para el objeto donde se encuentra tu cursor.
Supongamos que el cursor se encuentra en text1
Private Sub text_KeyDown(KeyCode As Integer, Shift As Integer)
'Si quieres bajar
If keycode=vbkeydown then
aaa.setfocus
end if
'Si quieres subir
If keycode=vbkeyup then
bbb.setfocus
end if
'Si quieres ir a la derecha
If keycode=vbkeyright then
ccc.setfocus
end if
'Si quieres ir a la izquierda
If keycode=vbkeyleft then
ddd.setfocus
end if
End Sub
Un abrazo desde Chile.
Master
Primero, debemos utilizar el evento keydown para el objeto donde se encuentra tu cursor.
Supongamos que el cursor se encuentra en text1
Private Sub text_KeyDown(KeyCode As Integer, Shift As Integer)
'Si quieres bajar
If keycode=vbkeydown then
aaa.setfocus
end if
'Si quieres subir
If keycode=vbkeyup then
bbb.setfocus
end if
'Si quieres ir a la derecha
If keycode=vbkeyright then
ccc.setfocus
end if
'Si quieres ir a la izquierda
If keycode=vbkeyleft then
ddd.setfocus
end if
End Sub
Un abrazo desde Chile.
Master
