如何以编程方式从ReadOnly RichTextBox中删除文本？

Question

以下代码旨在维护ReadOnlyRichTextBox中的文本缓冲区,其中存储了最大数量的字符,并始终保持滚动到底部.它流式传输实时日志.

但在我试图保持最大字符数,rtMessages.TextLength()不改变之后rtMessages.SelectedText = String.Empty,因此,没有防守If块,我结束了一个无限循环试图多次删除缓冲区的第一行.

当我删除ReadOnly-ness时RichTextBox,此功能成功.似乎有点奇怪,因为AppendText成功,但我明白选择是一个不同的野兽.

我可以这样做,以便a ReadOnly RichTextBox可以通过编程方式进行修改吗？

Private Sub onNewData(ByRef data As String) Handles _server.clientSentData

    ' Add new text
    rtMessages.SelectionStart = rtMessages.TextLength()
    rtMessages.AppendText(data)

    ' Delete oldest text line-by-line until the whole buffer is shorter than MAX_TEXT_LENGTH characters
    Const MAX_TEXT_LENGTH = 200
    Dim textLength = rtMessages.TextLength()
    While textLength > MAX_TEXT_LENGTH
        Dim i As Int16 = 0
        Do While rtMessages.GetLineFromCharIndex(i) < 1
            i += 1
        Loop

        rtMessages.Select()
        rtMessages.SelectionStart = 0
        rtMessages.SelectionLength = i
        rtMessages.SelectedText = String.Empty
        rtMessages.SelectionLength = 0

        If rtMessages.TextLength() = textLength Then
            rtMessages.Clear()
            rtMessages.AppendText("[buffer trimming algorithm failed]")
            Exit While
        End If

        textLength = rtMessages.TextLength()
    End While

    ' Scroll down
    rtMessages.SelectionStart = rtMessages.TextLength()
    rtMessages.ScrollToCaret()
End Sub

Answer 1

虽然尝试替换 ReadOnly RichTextBox 中的 SelectedText 不起作用，但使用 SelectedRtf 确实有效：

  'rtMessages.Select()
  'rtMessages.SelectionStart = 0
  'rtMessages.SelectionLength = i
  'rtMessages.SelectedText = String.Empty
  'rtMessages.SelectionLength = 0

  rtMessages.Select(0, i)
  rtMessages.SelectedRtf = "{\rtf1\ansi}"