在线等待:richtextbox 的问题?

devajasy 2003-12-16 10:12:07
各位,我现在在做一个聊天软件,实现类似qq的聊天室,每一行是一种颜色(没有图标)我在实现时用的是richtextbox,但是我新加一行后,前面的文本都变成黑色的了,怎么样才能不变?有什么好的建议和说法
???????????
...全文
61 9 打赏 收藏 举报
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jhzhou882 2003-12-16
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
  • 打赏
  • 举报
回复
jhzhou882 2003-12-16
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
  • 打赏
  • 举报
回复
fangyds 2003-12-16
ListView应该可以的
  • 打赏
  • 举报
回复
shwen 2003-12-16
用 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
  • 打赏
  • 举报
回复
taosihai1only 2003-12-16
加上后,再设置forecolor属性,相当于再唰新
  • 打赏
  • 举报
回复
devajasy 2003-12-16
forecolor? 谁的forecolor?
  • 打赏
  • 举报
回复
devajasy 2003-12-16
表格控件? 那一种表格(在vb里)
  • 打赏
  • 举报
回复
yangfanatcsdn 2003-12-16
换个思路:用表格控件试试
  • 打赏
  • 举报
回复
jornet 2003-12-16
在加上后,再设置forecolor属性,相当于再唰新
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类

7617

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2003-12-16 10:12
社区公告
暂无公告