有关richtextbox的selstart 问题

Question

vb6.0中，在一个command的click时间里写这样一句，并单击之Private Sub Command1_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = 3
RichTextBox1.SelColor = RGB(255, 0, 0)
End Sub这时前三个字符变成红色。然后清空文本框，为什么以后在richtextbox里新输入的字符都逐一变成了红色？

Answer 1

SelColor 属性
      返回或设置用于决定 RichTextBox 控件中文本颜色的值。在设计时无效。Syntax语法object.SelColor [= color]SelColor 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表的一个对象。 
color 按照“设置值”中的描述，一个指定颜色的值。 
设置值color 的设置值是：设置值 描述 
Null  文本包含多种颜色设置值的混合。 
RGB colors  在代码中用 RGB 或 QBColor 函数所指定的颜色。 
System  通过对象浏览器中 Visual Basic 对象库中的系统颜色常数所指定的颜色。因此，文本的颜色要与在 Windows “控制面板”中对所指定常数的选择相匹配。 
说明如果 RichTextBox 控件中没有选定的文本，则设置此属性将确定在当前插入点所输入的所有新文本的颜色。
试试下面的代码
Private   Sub   Command1_Click() 
RichTextBox1.SelStart   =   1
RichTextBox1.SelLength   =   3 
RichTextBox1.SelColor   =   RGB(255,   0,   0) 
End   Sub 
或者中心设定RichTextBox1.SelColor的值