vb.net 2010始终在RichTextBox顶部附加文本

Question

我创建了一个简单的函数来将文本追加到Richtextbox。 我希望此文本始终附加在顶部，将旧文本滚动到底部。

Private Sub BoxMessaggio(ByVal testo As String, ByVal errore As Integer)
    Me.ActiveControl = RichTextBox1
    RichTextBox1.Focus()
    If errore Then
        RichTextBox1.SelectionColor = Color.Red
    Else
        RichTextBox1.SelectionColor = Color.Black
    End If
    RichTextBox1.AppendText(testo + vbNewLine)
    RichTextBox1.SelectionStart = RichTextBox1.Text.Length
    'RichTextBox1.Select(RichTextBox1.TextLength, 0)
    RichTextBox1.ScrollToCaret()
End Sub

我以这种方式调用该函数：

BoxMessaggio(Now + ": " + ex.Message, 1)

我尝试了在StackOverflow或某些论坛上找到的许多不同解决方案，但是没有人适合我，文本总是添加在底部。

Answer 1

将RichTextBox1.Text视为String （因为它是String ），调用Insert ，然后将新文本放置在文本框的最前面。

RichTextBox1.Text = RichTextBox1.Text.Insert(0, testo + vbNewLine)

至于滚动。 不要调用Focus或ScrollToCaret ，它将停留在顶部，以查看最近添加的文本。