Rubrik: TextBox, ListBox & ComboBox | 15.08.02 |
Cursor in TextBox oder RichTextBox positionieren (VB.NET) VB-Version: VB5, VB6 | ||
Views: 29.558 |
Den Cursor an das Ende eines Textes in einer TextBox oder RichtTextBox zusetzen ist in VB.NET ähnlich wie in VB. Der Code hierfür ist:
' für TextBox Private Sub TextBox1_GotFocus(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles TextBox1.GotFocus TextBox1.SelectionStart = Len(TextBox1.Text) TextBox1.ScrollToCaret() End Sub ' für RichTextBox Private Sub RichTextBox1_GotFocus(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles RichTextBox1.GotFocus RichTextBox1.SelectionStart = Len(RichTextBox1.Text) End Sub
Der Unterschied hier zwischen TextBox und RichTextBox ist, dass die Zeile"RichTextBox1.ScrollToCaret()" hier nicht benötigt wird. Mit demobigen Code springt der Cursor sofort ans Textende, wenn die RichTextBox denFocus erhält.