Cursor in TextBox oder RichTextBox positionieren (VB.NET) VB-Version:  VB5, VB6
	Views:  535

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.