Question

VB中,RichTextBox的最后面添加字符串

我有段代码:
Sub output()
Dim i As Integer
For i = 1 To n
RichTextBox1.Text = RichTextBox1.Text & Str(a(i))
Next
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
End Sub
其中，n是一个全局变量,由用户输入,经过一个算法(八皇后算法-_-!)得到一串数字,存储在数组a()中，现在是想把结果输入到RichTextBox中，使用上面的算法是能实现的，但是由于数据太大，显示的很慢。
我想问下，有没办法可以直接在RichTextBox中最后面添加单个a(i)的值，而不是使用重新赋值给RichTextBox1.Text = RichTextBox1.Text & Str(a(i))
希望大家指教一下！

Answer 1

RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText = "新文本"

这样可能可以更快速些：
Dim r As RichTextBox
Set r = RichTextBox1
r.SelStart = Len(r.Text)
r.SelText = "新文本"

需要的话，最后再用 SelStart 改下光标位置

Answer 2

字符连接是非常慢的,但RICH控件进行了优化, 它的字符操作远比VB的字符操作快
你既然是在最末尾那么教你一招

for i= 1 to n '数组一般是从 0 开始的 不知道你这里是不是对的哈
RichTextBox1.SelStart=len(RichTextBox1.Text) '移动光标到最后
RichTextBox1.SelText=CStr(a(i))'Str出来的结果前面会带一个空格非常不爽的
next
RichTextBox1.SelStart=len(RichTextBox1.Text)
RichTextBox1.SelText=vbCrlf

Answer 3

这样确实很慢,我以前做个密码生成器也是你这样做,但显示的很慢是不是.
因为数据每次输到文本框都要需要时间,这样一来就慢了,你可以用一个变量来代替它,到最后再输到文本框就快了.
Sub output()
Dim i As Integer
dim step as string
For i = 1 To n
step = step & Str(a(i))
Next
step = step & vbCrLf
RichTextBox1.Text = step
End Sub

Answer 4

Stt=rtf.text
Stt=stt & str(a(i))
Rtf.text=stt
变量叠加比控件快

Answer 5

不太懂额额