在线等待:richtextbox 的问题?

devajasy 2003-12-16 10:12:07
各位,我现在在做一个聊天软件,实现类似qq的聊天室,每一行是一种颜色(没有图标)我在实现时用的是richtextbox,但是我新加一行后,前面的文本都变成黑色的了,怎么样才能不变?有什么好的建议和说法
???????????
...全文
108 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
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属性,相当于再唰新

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧