richtextbox颜色问题

Question

我用了
RichTextBox1.SelColor = VbRed
RichTextBox1.Text = RichTextBox1.Text & "abcdefg"
这么两行命令以达到让"abcdefg"这个字符串显示为红色输出的效果，但是不行求高手给解决办法其实我是有一个字符串数组，想让他在一个富文本框里输出成不同颜色的效果，求解决办法另外我用的是VB6

Answer 1

哎真不晓得你们这些人 连问题问都问不清 要如何回答你 ? 一字一字  一组一组  一行一行 ?selcolor 就对啦你自己变通吧 我懒得猜你要干啥
'添加 Richtextbox1 Command1 Dim tword&, i&,aa$ 
Private Sub Form_Activate() 
 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 
 aa = "c:\test.txt" 
 RichTextBox1.LoadFile aa, 1 
End Sub Private Sub Command1_Click() 
 tword = Len(Trim(RichTextBox1.Text)) 
 Randomize 
 For i = 1 To tword 
 RichTextBox1.SelStart = i 
 RichTextBox1.SelLength = 1 
 RichTextBox1.SelColor = QBColor(Int((Rnd * 9) + 7)) 
 Next i 
End Sub