El siguiente procedimiento permite que la tecla Enter haga la función que hace la tecla Tab.
Este codigo puede ir en un modulo, o en la parte de Declaraciones del form
Public Sub EnterLikeTab(ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled = True
SendKeys.Send("{TAB}")
End If
End Sub
Implementacion del procedimiento
En el evento keypress del control
Private Sub txtCasillero_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCasillero.KeyPress
EnterLikeTab(e)
End Sub
Este codigo puede ir en un modulo, o en la parte de Declaraciones del form
Public Sub EnterLikeTab(ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled = True
SendKeys.Send("{TAB}")
End If
End Sub
Implementacion del procedimiento
En el evento keypress del control
Private Sub txtCasillero_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCasillero.KeyPress
EnterLikeTab(e)
End Sub
Comentarios
Publicar un comentario