RichTextBox只能同时显示2种颜色吗(一个下午没搞顶了,试用期快被开除了)

Question

DIM ADD AS INTEGERWinsock1.SendData (Text2.Text)RichTextBox1.Text = RichTextBox.Text & "我说:" & Text2.TextRichTextBox1.SelStart = ADDRichTextBox1.SelLength = Len(Text2.Text) + 5
RichTextBox1.SelColor = Picture1.BackColor
ADD = Len(RichTextBox1.Text)
Text2.Text = ""
--------------------------
怎么我改变新输入的字体颜色 前面字体颜色怎么不保留
好象只能有2种颜色

Answer 1

你的ADD不能定义为局部变量,因为局部变量不会保存上一次的位置.所以你永远都是由开始的位置设置颜色.你改成: Private Add As Integer
或 Public Add As Integer