更改vb6中富文本框的颜色

本文介绍了更改vb6中富文本框的颜色的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 亲爱的先生 i使用此代码更改富文本框的颜色 但是当我输入新行时它改变了以上lines.i的颜色只是想改变当前行的颜色。 第一行的第一次字体颜色是红色 第二次第二行的字体颜色是绿色 但第三次第二行的字体颜色从绿色变为红色 请帮帮我 Dim start1 作为 整数 start1 = Len（RichTextBox1.Text） 如果 RichTextBox1.Text<> 然后 RichTextBox1 .Text = RichTextBox1.Text& vbCrLf& Text1.Text 使用 RichTextBox1 .SelStart = start1 .SelLength = Len（RichTextBox1） .SelColor = vbGreen 结束 使用 Else RichTextBox1.Text = Text1.Text 使用 RichTextBox1 .SelStart = start1 .SelLength = Len（RichTextBox1） .SelColor = 255 结束 使用 结束 如果 结束 Sub 谢谢先生解决方案 Dear Sir i am changing the color of rich text box using this codebut when i enter the new line it change the color of above lines.i just want to change the color of current row.first time font color of row one is redsecond time the font color of row two is greenbut third time the font color of second row change from green to again red please help me outDim start1 As Integerstart1 = Len(RichTextBox1.Text)If RichTextBox1.Text <> "" ThenRichTextBox1.Text = RichTextBox1.Text & vbCrLf & Text1.TextWith RichTextBox1.SelStart = start1.SelLength = Len(RichTextBox1).SelColor = vbGreenEnd WithElseRichTextBox1.Text = Text1.TextWith RichTextBox1.SelStart = start1.SelLength = Len(RichTextBox1).SelColor = 255End WithEnd IfEnd Subthanks sir 解决方案 这篇关于更改vb6中富文本框的颜色的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！