Sprache: VB
Nach drücken der Enter Taste springt der Cursor zur nächsten (Tabindex) Eingabemöglichkeit/Auswahlmöglichkeit.
Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTo.KeyPress
Try
If e.KeyChar = Chr(13) Then
SendKeys.Send("{tab}")
e.Handled = True
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Sorry, an error occured", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTo.KeyPress
Try
If e.KeyChar = Chr(13) Then
SendKeys.Send("{tab}")
e.Handled = True
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Sorry, an error occured", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Alte URL:
/snippet/enter-spingt-zur-naechsten-eingabemaske/631