| Usuario |
PASAR DE UN TEXTBOX A OTRO |
Desconocido
|
| Enviado - 17/11/2004 |
| ? |
HOLA
LO QUE NECESITO ES UN CODIGO PARA PODER PASAR DE UN TEXTBOX A OTRO TIPO COMO CUANDO INGRESAN EL SERIAL DE WINDOWS QUE AL TERMINAR DE ESCRIBIR DE TERMINADAS LETRAS PASE AL QUE SIGUE...
BUENO GRACIAS POR SU ATENCION
ATTE. MUSHACHI |
| ? |
|
l_island
110 Mensaje(s)
|
| Enviado - 17/11/2004 |
| ? |
Este te puede servir:
Private Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If Len(Text1(Index).Text) = Text1(Index).MaxLength Then Text1(Index + 1).SetFocus
End Sub
Este procedimiento asume que tienes un array de controles. Para que funcione correctamente debes controlar el caso de estar en el ?ltimo elemento del array.
Saludos!!
l_island |
| ? |
|
Desconocido
|
| Enviado - 18/11/2004 |
| ? |
Hola un codigo facil:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
KeyAscii = 0
End If
End Sub
lo que se hace es leer el valor de la tecla que se pulsa y el enter equivale el 13
|
| ? |
|
Desconocido
|
| Enviado - 18/11/2004 |
| ? |
| GENIAL, EL CODIGO, ME SIRVIO DE MARAVILLA |
| ? |
|
donalfredoon
7 Mensaje(s)
|
| Enviado - 24/11/2004 |
| ? |
Tambien hay otra forma sencilla, en la propiedad tabindex de cada textbox, le pones el numero de acuerdo al orden que quieras vaya cambiando el enfoque, de tal manera que cada vez que presiones enter, tab o las flechas, el enfoque cambiara al texbox que sigue.
ejemplo:
Private Sub UserForm_Initialize()
userform1.texbox1.tabindex=0
userform1.textbox2.tabindex=1
End Sub
Puedes dar el orden que quieras.
Lo mismo puedes hacer para cualquier objeto en el formulario.
Saludos |
| ? |
|
