Question

vb中关于richtextbox

如何做到像qq一样 可以在聊天窗口改变了字体颜色后 发送窗口就变成这种颜色字体 也就是一个text里面可以有很多种颜色的字体 谁可以写个实例给我参考下 在线等。。。
不行 不行！！ 别管我做什么！！能够满足我的条件的我就给分
------------------------------------------------------------
duanyous 你能否帮我做个 richtextbox1 这个是用来作为输入框的 ，然后再弄个command1 点击command1就会把richtextbox1 下你内容 添加到 richtextbox2 中去，用到 vbcrlf ，这里关键就是要用上颜色 ，我希望在richtextbox2看到的 richtextbox1下 所选的颜色 你能办的到吗？

Answer 1

不知道你要啥

不过做了个效果你看看：

图片框的BorderStyle 值为0

Private Sub Picture1_Click(Index As Integer)

Select Case Index

Case 0

  Text1.ForeColor = QBColor(13)

Case 1

  Text1.ForeColor = QBColor(0)

Case 2

  Text1.ForeColor = QBColor(9)

Case 3

  Text1.ForeColor = QBColor(12)

End Select

End Sub

如图：点击颜色文本字体的颜色就变化

Answer 2

RichtextBox控件的文本字体和文本颜色是控件的属性决定的，而QQ中的字体和颜色是Html标签设置的，并且RichtextBox控件的字体和颜色在设计时是无效的，因此根本不可能在一个RichtextBox控件中实现多种字体或多种颜色。

Answer 3

Private Sub Command1_Click()
RichTextBox1.SelColor = vbBlue
End Sub

Private Sub Command2_Click()
RichTextBox1.SelColor = vbGreen
End Sub

运行时，在RichTextBox1中选中一些字，单击Command1时，选中的字就变成蓝色，再选中另外一些字，单击Command2时，选中的字就娈成绿色的。

方法就是这样，希望可以帮到你！

Answer 4

ytuj