Question

VB代码，实现这样效果需要添加哪些控件？

还是接上一个问题http://zhidao.baidu.com/question/174081737.html
上问题代码不支持换行显示。
-----------------------------
输入了
<我/@你> <他/@我>
<你/@离开>
最终显示:我 他你,不支持换行显示.
---------------------
再次求助VB老大解答,谢谢.
最最最理想效果：
***代表内容.
[@你]
你干什么,你我他
<我/@你> <你/@他>
<他/@你> <是/@你>
<你是我他>
最终显示效果:
-------------
你干什么,你我他 (白色字体)
我 你 (黄色字体)
他 是 (黄色字体)
你是我他 (红色字体)
---------
当文字在[@***]下面,文字颜色是白色.
文字在<**/@**>里面,颜色是黄色.
文字在<***>里面,颜色是红色

Answer 1

Private Sub Command1_Click()
Dim s As String
Dim t As String
s = Text1.Text
Dim l As Long
Dim IGF As Boolean
Dim igs As String
igs = "<>/@"
Form2.Show
Form2.Cls
For l = 1 To Len(s)
If Mid(s, l, 1) = "[" Or Mid(s, l, 2) = "/@" Then
IGF = True
End If
If Mid(s, l, 1) = "<" Then
If InStr(Mid(s, l), "/@") > InStr(Mid(s, l), ">") Or InStr(Mid(s, l), "/@") = 0 Then
Form2.ForeColor = vbRed
Else
Form2.ForeColor = vbYellow
End If
End If
If IGF = False Then
If InStr(igs, Mid(s, l, 1)) = 0 Then
If Mid(s, l, 1) = vbCr Then
If l > 1 Then
If Mid(s, l - 1, 1) <> "]" Then
Form2.Print vbCrLf;
End If
End If
l = l + 1
Else
Form2.Print Mid(s, l, 1);
End If
End If
End If
If Mid(s, l, 1) = "]" Then
IGF = False
Form2.ForeColor = vbWhite
End If
If Mid(s, l, 1) = ">" Then
IGF = False
End If
Next l
End Sub

Answer 2

richtextbox 控件可以实现文字局部变色