复制列表框的最快方法项目到RichTextBox

Question

到目前为止，我使用以下代码将列表框的项目移动到RichText box。

  For k As Integer = 0 To ListBox.Items.Count - 1   
      RichTextBox1.Text = RichTextBox1.Text & ListBox.Items(k) & vbNewLine
  Next 

这里的问题是，当我使用这样的代码时，代码需要大约2分钟来移动5000个项目。这是他们用于此操作的最快方法吗？

Answer 1

尝试构建要预先添加的字符串。

Dim sb As New StringBuilder

For Each item In ListBox.Items
    sb.AppendLine(item.ToString())
Next

RichTextBox1.AppendText(sb.ToString())