[RESOLVED] Help please - Richtextbox1 colorchange

[Sean.Downes]

Hello, ive already made a thread for this but is really long and confusing so heres another.

Im using this code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        IE.RichTextBox1.SelectionColor = Color.Blue
        IE.RichTextBox1.AppendText(DateTime.Now & "                    " & LOGON.MaskedTextBox1.Text & "                    " & IE.Label6.Text & TextBox22.Text & TextBox22.Text)
        IE.RichTextBox1.SelectionColor = Color.Red
        IE.RichTextBox1.AppendText(TextBox21.Text & TextBox22.Text & TextBox22.Text & TextBox22.Text)
        Me.Close()
    End Sub

and it has this result:




The intention was to have the datetime, user id etc in blue and the remarks (Which is the text beaneath) in red, this works the first time round but doesnt there after that. Am i doing anything wrong in the coding?

Cheers

[Sean.Downes]

I just found out it works in another richtextbox but not this one for some reason. anyone know why?

[Pradeep1210]

Try this:

1. Add this method to your class (or some global class/module)

Sub AppendTextToRTB(rtb As RichTextBox, color As Color, text As String)
    rtb.SelectionStart = rtb.TextLength
    rtb.SelectionLength = 0
    rtb.SelectionColor = color
    rtb.SelectedText = text
End Sub

2. This is the sample usage:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    AppendTextToRTB(RichTextBox1, Color.Blue, "This is some text in blue" & vbCrLf)
    AppendTextToRTB(RichTextBox1, Color.Red, "This is some text in red" & vbCrLf)
    AppendTextToRTB(RichTextBox1, Color.Black, "This is some text in black" & vbCrLf)
End Sub

In your case, this should work
(not tested)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    AppendTextToRTB(IE.RichTextBox1, Color.Blue, DateTime.Now & "                    " & LOGON.MaskedTextBox1.Text & "                    " & IE.Label6.Text & TextBox22.Text & TextBox22.Text & vbCrLf)
    AppendTextToRTB(IE.RichTextBox1, Color.Red, TextBox21.Text & TextBox22.Text & TextBox22.Text & TextBox22.Text & vbCrLf)
End Sub

[Sean.Downes]

that works great thanks!!!!! 1 more quick one. How do i make the red text only become bold? cheers

[Pradeep1210]

Just add an overloaded method that accepts the font you want to set:

Sub AppendTextToRTB(rtb As RichTextBox, color As Color, text As String)
    rtb.SelectionStart = rtb.TextLength
    rtb.SelectionLength = 0
    rtb.SelectionColor = color
    rtb.SelectedText = text
End Sub
 
Sub AppendTextToRTB(rtb As RichTextBox, color As Color, font As Font, text As String)
    rtb.SelectionStart = rtb.TextLength
    rtb.SelectionLength = 0
    rtb.SelectionColor = color
    rtb.SelectionFont = font
    rtb.SelectedText = text
End Sub

Usage:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim boldFont As New Font(RichTextBox1.Font, FontStyle.Bold)
 
    AppendTextToRTB(RichTextBox1, Color.Blue, "This is some text in blue" & vbCrLf)
    AppendTextToRTB(RichTextBox1, Color.Red, boldFont, "This is some bold text in red" & vbCrLf)
    AppendTextToRTB(RichTextBox1, Color.Black, "This is some text in black" & vbCrLf)
End Sub

[Sean.Downes]

works like a dream, thanks!!