Самый быстрый метод для экземпляра списка копий Элементы для 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())