複製列表框項目到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())