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 ，它將停留在頂部，以查看最近添加的文本。