[VB] - Chatverlauf farbig gestalten - Problem

[Pyromane]

Hallo/Nabend,

ich will in meinem Chatverlauf etwas farbig gestalten.
Dies ist mir auch gelungen:

Private Sub client_OnPublicMessage(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnPublicMessage
        WriteText(Nick, Color.Blue, Message, Color.Red)
    End Sub

    Private Sub client_OnPrivateMessage(ByVal sender As Object, ByVal fromNick As String, ByVal toNick As String, ByVal Message As String) Handles client.OnPrivateMessage
        RichTextBox1.AppendText(fromNick & " (privat an " & toNick & "): " & Message & vbLf)
    End Sub

    Private Sub WriteText(ByVal Absender As String, ByVal AbsenderFarbe As Color, ByVal Text As String, ByVal TextFarbe As Color)
        RichTextBox1.SelectionColor = AbsenderFarbe
        RichTextBox1.AppendText(Absender & ": ")
        RichTextBox1.SelectionColor = TextFarbe
        RichTextBox1.AppendText(Text & vbLf)
    End Sub 

Bisher schön und gut.


Aber sobald ich etwas Replace:

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        RichTextBox1.Text = RichTextBox1.Text.Replace("°>_h", "").Replace("°%-1°", "").Replace("""", "")
End Sub 

Wird der Nick und der Text
wieder in der Farbe Schwarz (also unfarbig) angezeigt.


Nun will ich aber bestimmte Teile des Textes Replacen und
den Nick und den Text farbig hinbekommen.

Ich hoffe mir kann jemand helfen.

[iToxic]

Wieso replacest du auch im TextChanged - Event?

Replace doch einfach beim empfangen und schreib es dann in die RichTextBox