-
Mar 3rd, 2012, 02:34 PM
#1
Thread Starter
Lively Member
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?
-
Mar 3rd, 2012, 04:22 PM
#2
Re: Richttextbox
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
-
Mar 4th, 2012, 05:32 PM
#3
Thread Starter
Lively Member
Re: Richttextbox
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
-
Mar 4th, 2012, 05:51 PM
#4
Re: Richttextbox
You said
I want to know how to give everyword in a sentence a diffrent color.
and this is what i gave you.
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
-
Mar 6th, 2012, 11:56 AM
#5
Thread Starter
Lively Member
Re: Richttextbox
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!
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|