在线等待：richtextbox 的问题？

[devajasy]

各位，我现在在做一个聊天软件，实现类似qq的聊天室，每一行是一种颜色（没有图标）我在实现时用的是richtextbox，但是我新加一行后，前面的文本都变成黑色的了，怎么样才能不变？有什么好的建议和说法
？？？？？？？？？？？

[jornet]

在加上后，再设置forecolor属性，相当于再唰新

• 打赏
• 举报

回复 赞

[yangfanatcsdn]

换个思路：用表格控件试试

• 打赏
• 举报

回复 赞

[devajasy]

表格控件? 那一种表格（在vb里）

• 打赏
• 举报

回复 赞

[devajasy]

forecolor? 谁的forecolor?

• 打赏
• 举报

回复 赞

[taosihai1only]

加上后，再设置forecolor属性，相当于再唰新

• 打赏
• 举报

回复 赞

[shwen]

用 SelColor 设置将要加入的文字的颜色，以及其他 sel*** 属性设置其他效果
With Me.RichTextBox1
.SelStart = 65535
.SelColor = vbBlack
.SelText = "12345" & vbNewLine
.SelColor = vbRed
.SelText = "12345" & vbNewLine
.SelColor = vbBlue
.SelBold = True
.SelText = "12345" & vbNewLine
End With

• 打赏
• 举报

回复 赞

[fangyds]

ListView应该可以的

• 打赏
• 举报

回复 赞

[jhzhou882]

Private i As Integer
Private Sub Command1_Click()
RichTextBox1.SelStart = 65535
If i Mod 2 = 0 Then
RichTextBox1.SelText = "12345" & vbNewLine
RichTextBox1.SelColor = vbRed
i = i + 1
Else
RichTextBox1.SelText = "eeeee" & vbNewLine
RichTextBox1.SelColor = vbBlue
i = i + 1
End If
End Sub

• 打赏
• 举报

回复 赞

[jhzhou882]

Private i As Integer
Private Sub Command1_Click()

If i Mod 2 = 0 Then
RichTextBox1.SelColor = vbRed
RichTextBox1.SelText = "12345" & vbCrLf
i = i + 1
Else
RichTextBox1.SelColor = vbBlue
RichTextBox1.SelText = "eeeee" & vbCrLf
i = i + 1
End If

End Sub

• 打赏
• 举报

回复 赞