好何一句话改变richtextbox 所有文字的颜色，不要selcolor
好何一句话改变richtextbox 所有文字的颜色，不要selcolor 问题点数：0、回复次数：6Top
1 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-12-04 07:06:43 得分 0
冰冻三尺，非一日之寒Top
2 楼qifanghcy01（qifanghcy01）回复于 2002-12-04 08:02:12 得分 0
不要一句也行,如何做Top
3 楼nik_Amis（...）回复于 2002-12-04 09:10:20 得分 0
Dim ls, ll
With rt
ls = .SelStart
ll = .SelLength
.SelStart = 0
.SelLength = Len(.Text)
.SelColor = RGB(255, 0, 0)
.SelStart = ls
.SelLength = ll
End WithTop
4 楼qifanghcy01（qifanghcy01）回复于 2002-12-04 19:42:02 得分 0
这样屏幕会刷效果非常不好有没有别的办法Top
5 楼shawls（VB Fan)(QQ:9181729）回复于 2002-12-07 12:17:30 得分 0
可以这样么？
因为:richtextbox的数据都是：rtf的，写rtf文件是不是更好？
然后载入文件就是了Top
6 楼Arcan（Arcan）回复于 2002-12-14 14:22:24 得分 0
有难度啊，不过你可以这么干，在一个窗体上放两个richtextbox控件，一个可见，一个不可见，当你想改变颜色的时候把所有的内容都放入不可见的那个控件中，在那个控件中全部选中然后更改颜色，改完后再把内容赋给第一个可见的richtextbox控件。
不要用text属性来传递哦，要用SelRTF才能不损失颜色字体等格式，如：
RichTextBox2.SelRTF=RichTextBox1.SelRTF
更改RichTextBox2中的颜色，然后
RichTextBox1.SelRTF=RichTextBox2.SelRTFTop
