Farbiger Text in der RichTextBox VB-Version:  VB5, VB6
	Views:  6.431

Immer wieder wird gefragt: Wie bekomme ich den Text in einer RichTextBox mehrfarbig? Dies erreichen Sie über die SelColor-Eigenschaft.

Codebeispiel 1: Der Text befindet sich bereits in der RTF-Box

With RichTextBox1
  .Text = "rot blau"
 
  ' Zeile nachträglich einfärben
  .SelStart = 0
  .SelLength = 3
  .SelColor = vbRed
 
  .SelStart = 4
  .SelLength = 4
  .SelColor = vbBlue
End With

Codebeispiel 2: Der Text soll während des Einfügens gefärbt werden

With RichTextBox1
  .SelColor = vbRed
  .SelText = "rot "
 
  .SelColor = vbBlue
  .SelText = "blau"
End With

Codebeispiel 3: Der Anwender soll sich die Farbe selbst aussuchen und seinen Text einfärben wie er will. Hierzu wird dasCommonDialog-Steuerelement benötigt.

CommonDialog1.ShowColor
RichTextBox1.SelColor = CommonDialog1.Color