Cómo pasar al siguiente TextBox pulsando Enter


Normalmente, en toda aplicación Windows el Enter se reserva para salto de línea, quedando relegado para cambio de control la tecla Tab. Pero en los antiguos sistemas de gestión, que corrían bajo DOS, el pulsar Enter representaba cambiar se campo o casillero de información. Y tanto se difundió que hoy es una buena alternativa dotar a los programas de gestión mas avanzados de este truco para poder facilitar la tarea a los usuarios operadores.

En cualquier módulo BAS del proyecto crear una Sub con el siguiente contenido:

Sub Tabula(KeyAscii As Integer)
If KeyAscii = 13 Then
   SendKeys "{TAB}", True 
   KeyAscii = 0 ' para evitar un 'beep' indeseado
   End If
End Sub

En cada formulario que se desee implementar esta función habrá que establecer la propiedad KeyPreview en True. Y en el evento KeyPress de cada formulario habrá que colocar el siguiente código:

Private Sub Form1_KeyPress(KeyAscii As Integer)
Tabula KeyAscii
End Sub

Como ve, esto es mas simple de lo que habrá supuesto. Esperamos le sirva.

NOTA: Es posible que esto tenga algunos encontronasos con la función Default de los botones, por lo que recomendamos probarlo bien antes de darlo por bueno.