Question

怎样用vb在Richtextbox1.text中实现

怎样用vb在Richtextbox1.text中实现两种颜色或多种颜色。
如：
dim dd as integer
dim fier as string
form1.richtextbox1.text=richtextbox1.text & dd & fier
我希望把dd的颜色改为红，其它的为兰色。
请高手赐段代码，谢谢！
dim dd as integer全局变量
dim fier as string全局变量
Private Sub Command1_Click()
当fier内容改变时，
dd=dd+1
form1.richtextbox1.text=richtextbox1.text & dd & fier
end sub
这里的dd是一个复数，它是由1到N的任一数，它是由别的过程生成的累加数。也就是当fier内容改变时dd=dd+1

实现的结果是这样的：
1你以恩典为年岁的冠冕，2你以恩典为年岁的冠冕，3你的路径都滴下脂油，4你以恩典为年岁冠冕。

这样的效果我已经作好了，只是还没有办法更改1、2、3、4的颜色

Answer 1

Richtextbox1.forecolor=vbblue
选中dd
Richtextbox1.seltextcolor=vbred
他可以改变选中的字符颜色
代码可能有点不对~~
差不多拉~~
望采纳

Answer 2

我也正好学哦

Answer 3

Private Sub Command1_Click()
Dim dd As Integer
Dim fier As String
Dim i As Integer, j As Integer, k As Integer
RichTextBox1.Text = "werteeyryrytr" & vbCrLf & "hehe..." & vbCrLf
dd = 1234
fier = "kg/m."
RichTextBox1.Text = RichTextBox1.Text & Trim(dd) & fier
i = Len(RichTextBox1.Text)
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = i
RichTextBox1.SelColor = vbBlue
j = InStr(RichTextBox1.Text, Trim(dd))
k = Len(Trim(dd))
RichTextBox1.SelStart = j - 1
RichTextBox1.SelLength = k
RichTextBox1.SelColor = vbRed
End Sub