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

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)

我尝试了很多在 Whosebug 或某些论坛上找到的不同解决方案，但没有一个适合我，文本总是添加在底部....

Answer 1

把RichTextBox1.Text当作一个String（因为它是），调用Insert，把新的文本放在strong的前面。

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

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

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

vb.net 2010 append text always at top of a richtextbox

vb.net

richtextbox