Visual Basic - TRUCO PARA VISUAL BASIC, PARA LOS QUE NO SABEN

Life is soft - evento anual de software empresarial
 
Vista:

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"
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder