请教：richtextbox控件的隔一行一个颜色，怎么定义？

Question

请教：richtextbox控件的隔一行一个颜色，怎么定义？
比如，第一行的粉红色，第二行是淡黄色，第三行是浅绿色，第四行是......请问怎么设置？

Answer 1

Private Sub Command2_Click()
With RichTextBox1
.SetFocus
.SelStart = Len(.Text)
SendKeys Text1.Text & Chr(13)
.SelLength = Len(Text1.Text)
Select Case Val(.Tag)
Case vbRed
.SelColor = vbBlue
Case vbBlue
.SelColor = vbGreen
Case vbGreen
.SelColor = vbRed
Case Else
.SelColor = vbRed
End Select
.Tag = .SelColor
End With
End Sub

Answer 2

谢谢大侠的指点！但是您这个是文字的颜色，不是richtextbox的背景色，我要的是richtextbox的背景色如何设置继续请教,谢谢先!

Answer 3

NO Way!你这个还不如用表格控件来做。

Answer 4

 ColorDialog color = new ColorDialog();
color.ShowDialog();
this.richTextBoxPrintCtrl1.BackColor = color.Color;