TRUCO PARA VISUAL BASIC, PARA LOS QUE NO SABEN
Publicado por Caleb (30 intervenciones) el 17/07/2001 22:18:19
Como pasar al siguiente TextBox pulsando RETURN:
Create una sub como la siguiente en un modulo .bas de tu proyecto:
Sub Tabula(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}", True
KeyAscii = 0 ' para evitar un 'beep' indeseado
End If
End Sub
Ahora en el evento KeyPres de cada textbox en el que
desees que actue esta accion:
Private Sub Tu_Text_Box_KeyPress(KeyAscii As Integer)
Tabula KeyAscii
End Sub
** una forma más elaborada y que permite no tener que poner la funcion en cada TextBox:
1.- Poner la propiedad KeyPreview del formulario a True
2.- En el evento KeyPress del formulario llamar a la funcion Tabula (la descrita anteriormente):
Private Sub Form1_KeyPress(KeyAscii As Integer)
Tabula KeyAscii
End Sub
'Truco sacado de "Visual Basic Paradise"
Create una sub como la siguiente en un modulo .bas de tu proyecto:
Sub Tabula(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}", True
KeyAscii = 0 ' para evitar un 'beep' indeseado
End If
End Sub
Ahora en el evento KeyPres de cada textbox en el que
desees que actue esta accion:
Private Sub Tu_Text_Box_KeyPress(KeyAscii As Integer)
Tabula KeyAscii
End Sub
** una forma más elaborada y que permite no tener que poner la funcion en cada TextBox:
1.- Poner la propiedad KeyPreview del formulario a True
2.- En el evento KeyPress del formulario llamar a la funcion Tabula (la descrita anteriormente):
Private Sub Form1_KeyPress(KeyAscii As Integer)
Tabula KeyAscii
End Sub
'Truco sacado de "Visual Basic Paradise"
Valora esta pregunta


0