Aplicación 5: Usando KeyChar, Pasar foco de un TextBox a otro al presionar Enter

Nos ha pasado muchas veces que al tener un formulario con muchos TextBox tenemos que escribir en uno y luego tomar el mouse y dar clic en el otro TextBox para seguir escribiendo y asi sucesivamente si tenemos más, lo que complica o hace muy tedioso en el uso de la aplicación y por lo tanto necesitamos que al terminar de escribir en un TextBox al presionar una tecla en especifico nos saltemos al otro TextBox sin necesidad de perder el tiempo en tomar el mouse. En este caso se utiliza la tecla ENTER.

Ahora, la pregunta es ¿cómo hacer que eso suceda?

Sencillo, necesitamos trabajar un código que se ejecute al presionar la tecla ENTER, y dicho código lo usaremos en un evento llamado KEYPRESS, pero primero, quienes tenemos un conocimiento a medias de programación, posiblemente podriamos saber qué es, qué significa o para qué sirve el evento "KEYPRESS". Pero por si no lo sabes:

• KEYPRESS es un evento que se produce cuando el usuario presiona y suelta  una tecla.

Ahora el código que escribiremos en el evento KEYPRESS  de los TextBox será el siguiente.

[sourcecode language="vb"]
If Asc(e.KeyChar) = 13 Then
TextBox1.Focus()
End If
[/sourcecode]

Como sabrás el valor en el codigo ASCII de la pulsación de la tecla ENTER es 13. En el argumento "e" se encuentran todos los eventos, procedimientos y funciones que estan en ejecución, como lo es el "KEYCHAR", que es la función que se encarga de devolvernos el caracter que ha sido digitado, este caracter es una variable de tipo string, por lo tanto necesitamos usar la función "Asc", que es la que se encarga de convertir en código ASCII cualquier caraácter que le enviemos a esta función. El ".Focus()" pasa el foco al control que necesitemos, ya sea un TextBox, un Button, RadioButton, etc.

Aca dejo una pequeña aplicación como ejemplo:

 

Las propiedades de los controles quedarán de esta forma

Su codigo es el siguiente:

[sourcecode language="vb"]
Public Class Form1
'txtNombre en el evento KEYPRESS
Private Sub txtNombre_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNombre.KeyPress
If Asc(e.KeyChar) = 13 Then
txtApellido.Focus()
End If
End Sub

'txtApellido en el Evento KEYPRESS
Private Sub txtApellido_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtApellido.KeyPress
If Asc(e.KeyChar) = 13 Then
txtTelefono.Focus()
End If
End Sub

'txtTelefono en el Evento KEYPRESS
Private Sub txtTelefono_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTelefono.KeyPress
If Asc(e.KeyChar) = 13 Then
txtDireccion.Focus()
End If
End Sub

'txtDireccion en el Evento KEYPRESS

Private Sub txtDireccion_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDireccion.KeyPress
If Asc(e.KeyChar) = 13 Then
btnIngresar.Focus()
End If
End Sub

'Boton que limpiara todos los textbox y pasa el foco al txtNombre
Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click
txtNombre.Text = ""
txtApellido.Text = ""
txtTelefono.Text = ""
txtDireccion.Text = ""
txtNombre.Focus()
End Sub

'Boton para terminar la aplicación
Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
Me.Close()
End Sub

End Class
[/sourcecode]

Para descargar el ejemplo Clic AQUI