Richttextbox

Hello,

I want to make a richtextbox what can show you diffrent colors.
I've already managed how to give 1 line a special color, but I want to know how to give everyword in a sentence a diffrent color.

as example in a line on my textbox:

Hello World, I want to show this diffrent colors in my richtextbox - who knows how to make it?


This is the code I have to color just once line of the textbox.

Code:

---

    Private Sub AddText(ByVal Text As String, ByVal Color As Drawing.Color)

        With txtChat

            .SelectionColor = Color
            .AppendText(Text)

        End With

    End Sub

---

How do I give everyword in a richttextbox a diffrent color?

Try this

vb Code:

Private Sub AddText(ByVal Text As String, ByVal Color As Drawing.Color)
        Dim strWords() As String = Text.Split(" "c)
        Dim colors(3) As Drawing.Color
 
        colors(0) = Drawing.Color.Red
        colors(1) = Drawing.Color.Blue
        colors(2) = Drawing.Color.Green
        colors(3) = Drawing.Color.Brown
        ' add more colors if you need
 
        With txtChat
            For j As Integer = 0 To strWords.Length - 1
                .SelectionColor = colors(j Mod colors.Length)
                .AppendText(strWords(j) & " ")
            Next
        End With
 
    End Sub

Quote:

---

Originally Posted by 4x2y

Try this

vb Code:

Private Sub AddText(ByVal Text As String, ByVal Color As Drawing.Color)
        Dim strWords() As String = Text.Split(" "c)
        Dim colors(3) As Drawing.Color
 
        colors(0) = Drawing.Color.Red
        colors(1) = Drawing.Color.Blue
        colors(2) = Drawing.Color.Green
        colors(3) = Drawing.Color.Brown
        ' add more colors if you need
 
        With txtChat
            For j As Integer = 0 To strWords.Length - 1
                .SelectionColor = colors(j Mod colors.Length)
                .AppendText(strWords(j) & " ")
            Next
        End With
 
    End Sub

---

hi,

Actually it is giving every word a diffrent color, but the first word gets a red color, the second word a blue color, the third word a green color and the fourth word a darkgreen color. I cant give everyword the color I want. The colors are now the same always, I need to change the colors every new sentence

You said

Quote:

---

I want to know how to give everyword in a sentence a diffrent color.

---

and this is what i gave you.

Quote:

---

I need to change the colors every new sentence

---

How can you specify the beginning and the end of the sentence?

Try to pass colors of each text you add, like this

vb Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim colors(3) As Drawing.Color
 
        colors(0) = Drawing.Color.Red
        colors(1) = Drawing.Color.Blue
        colors(2) = Drawing.Color.Green
        colors(3) = Drawing.Color.Brown
        ' add more colors if you need
 
        AddText("this is first line" & vbNewLine, colors)
 
 
        colors(0) = Drawing.Color.CadetBlue
        colors(1) = Drawing.Color.Coral
        colors(2) = Drawing.Color.Gray
        colors(3) = Drawing.Color.HotPink
        ' add more colors if you need
 
        AddText("this is the second line with different colors", colors)
    End Sub
 
    Private Sub AddText(ByVal Text As String, ByVal Colors() As Drawing.Color)
        Dim strWords() As String = Text.Split(" "c)
 
        With txtChat
            For j As Integer = 0 To strWords.Length - 1
                .SelectionColor = colors(j Mod colors.Length)
                .AppendText(strWords(j) & " ")
            Next
        End With
 
    End Sub

Quote:

---

Originally Posted by 4x2y

You said

and this is what i gave you.


How can you specify the beginning and the end of the sentence?

Try to pass colors of each text you add, like this

vb Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim colors(3) As Drawing.Color
 
        colors(0) = Drawing.Color.Red
        colors(1) = Drawing.Color.Blue
        colors(2) = Drawing.Color.Green
        colors(3) = Drawing.Color.Brown
        ' add more colors if you need
 
        AddText("this is first line" & vbNewLine, colors)
 
 
        colors(0) = Drawing.Color.CadetBlue
        colors(1) = Drawing.Color.Coral
        colors(2) = Drawing.Color.Gray
        colors(3) = Drawing.Color.HotPink
        ' add more colors if you need
 
        AddText("this is the second line with different colors", colors)
    End Sub
 
    Private Sub AddText(ByVal Text As String, ByVal Colors() As Drawing.Color)
        Dim strWords() As String = Text.Split(" "c)
 
        With txtChat
            For j As Integer = 0 To strWords.Length - 1
                .SelectionColor = colors(j Mod colors.Length)
                .AppendText(strWords(j) & " ")
            Next
        End With
 
    End Sub

---

Yes Im sorry for that but my english isnt very good.
Thank you for the code!:)