VB 读取文本内容加载进 RichTextBox 一行一行的显示 请赐教

追问：非常谢谢你   RichTextBox想把显示的数据每一行设置成不同的颜色 怎么处理
 数据以以下方式 '
           ' (3)工工工工 red
            '2012-9-3 17:44:10
           ' (3)戈戈戈戈戈戈戈戈 green
            '2012-9-3 17:44:15
            '(3)戈戈戈戈戈戈戈戈 white
            '2012-9-3 17:44:15
这是其中一段数据   按这样子的

答案：先一行一行读文本文件,存放在变量里,读完后,把该变量的值赋给richtextbox的text属性.
Dim MyStr As String
Dim MyLineStr As String
MyStr = ""
'读取文件信息
Open "C:\1.txt" For Input As #1       '以读的方式打开文件
Do While Not EOF(1)   ' 循环至文件尾
   Line Input #1, MyLineStr
   MyStr = MyStr & MyLineStr & vbCrLf
Loop
Close #1   ' 关闭文件。
RichTextBox1.Text = MyStr

其他：“仿真法”可以不？ 

上一个：Dreamweaver中 我缩小了窗体 图片没有跟着按比例改变小 我该怎做才能让他在缩小窗体时 里面的内容也变小
下一个：除正常的膳食外，如果额外补充维生素片剂，比如VA VB VC VD VE等，在一天中的什么时段服用，最能发挥作用