7,763
社区成员
发帖
与我相关
我的任务
分享处理RichTextbox
当给RichTextBox连续赋值时，会产生滚动条闪烁的现象，如下面代码
for i=1 to 1000
rtbLog.text=rtbLog.text & vbcrlf & "处理！"
next i
如何避免这个问题？
如何使滚动条滚到最后一行？
for i=1 to 1000
rtbLog.text=rtbLog.text & vbcrlf & "处理！"
next i
如何避免这个问题？
如何使滚动条滚到最后一行？
...全文
请发表友善的回复…
发表回复
liangwh 2003-03-17
- 打赏
- 举报
我想显示每一步
fxcl2006 2003-03-14
- 打赏
- 举报
先赋给变量
wamlaw 2003-03-14
- 打赏
- 举报
鼓掌！
northwolves 2003-03-14
- 打赏
- 举报
RichTextBox1.SelStart = Len(RichTextBox1.Text)
northwolves 2003-03-14
- 打赏
- 举报
Private Sub Command1_Click()
dim x as string
x = RichTextBox1.Text
For I = 1 To 1000
x = x & vbCrLf & "处理！"
Next I
RichTextBox1 = x
End Sub
dim x as string
x = RichTextBox1.Text
For I = 1 To 1000
x = x & vbCrLf & "处理！"
Next I
RichTextBox1 = x
End Sub
