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

Question

以下代码旨在在ReadOnly RichTextBox 中维护一个文本缓冲区，存储最大数量的字符，并始终保持滚动到底部。它传输实时日志。

但在我尝试保持最大字符数的过程中，rtMessages.TextLength() 在 rtMessages.SelectedText = String.Empty 之后没有发生变化，因此，没有防御性 If block ，我最终会陷入一个无限循环，试图重复删除缓冲区的第一行。

当我删除 RichTextBox 的 ReadOnly 属性时，此功能成功。似乎有点奇怪，因为 AppendText 成功了，但我知道选择是一个不同的野兽。

我可以让 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}"