怎样在运行时向RichTextBox中不停增加新数据并显示出来?

封xin封mg

如
form中有RichTextBox (RTxtResult)及command button, RichTextBox 是多行及有scrollbar
command button中的代码如下:
dim i,IntEnter as integer
dim minlen,maxlen as integer
minlen=1
maxlen=10
IntEnter=chr(13)+chr(10)
for i=minlen to maxlen
RTxtResult.text=i & IntEnter
DoEvents
next i
可RichTextBox中最后结果是
10
而我要的结果是：
1
2
3
4
5
6
7
8
9
10
我不想用这个,如果有多个循环时，这会很慢很慢
for i=minlen to maxlen
RTxtResult.text=RTxtResult.text & i & IntEnter
DoEvents
next i
请教各位高手，如何实现？

芯頽廢.。﹖

Private Sub Command1_Click()
Dim i As Integer
Dim minlen, maxlen As Integer
Dim IntEnter As String
minlen = 1
maxlen = 10
IntEnter = Chr(13) + Chr(10)
RTxtResult.Text = Empty
For i = minlen To maxlen
   RTxtResult.Text = (RTxtResult.Text + CStr(i)) & IntEnter
   DoEvents
Next i
End Sub

.｀D.D`地`

IntEnter 不是整型， RTxtResult.Text = (RTxtResult.Text + CStr(i)) & IntEnter。错在以上两句。

瘋子愛老婆

多谢jionjion的纠正，我在VBA中是可以的但我的意思是我不想要这种赋值语句 RTxtResult.Text = (RTxtResult.Text + CStr(i)) & IntEnter ,如果有多个循环时，会很慢很慢的.有没有更好的方法，在RichTextbox中一行一行增加数据，并显示出来呀，我看到别人的程序就实现了这个功能，我不知他是的是API，还是其它的。比如像listbox.additem(cstr(i)),它可以不断的增加并显示。但我的程序非要用RichTextBox不可，没有办法呀

彬彬有礼

哈哈,~~怕怕~~不敢不回~~