怎样在运行时向RichTextBox中不停增加新数据并显示出来?
如
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
请教各位高手，如何实现？
