Solved

Richtextbox text color

Posted on 2008-06-20
5
1,038 Views
Last Modified: 2008-09-12
I need to change the color of the added line color, but after three repetitions all line colors become the same.

You may see the function that adds new line to the richtextbox and assigns color to it.

When I run it four times with the settings you may see except the first line all lines become red.
Private Sub myworkerclass_AddDateTime(ByVal message As String, ByVal thecolor As System.Drawing.Color) Handles myworkerclass.AddDateTime
        Me.rtb_messages.Text = message & vbCrLf & Me.rtb_messages.Text
        Me.rtb_messages.Select(0, message.Length)
        Me.rtb_messages.SelectionColor = thecolor
    End Sub
 
        myworkerclass_AddDateTime("Test1!", Color.Purple)
        myworkerclass_AddDateTime("Test2!", Color.Red)
        myworkerclass_AddDateTime("Test3!", Color.YellowGreen)
        myworkerclass_AddDateTime("Test4!", Color.Tomato)

Open in new window

0
Comment
Question by:emresamisuzer
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
5 Comments
 
LVL 48

Expert Comment

by:jpaulino
ID: 21832301
Hi,

Try to change you sub to this:

    Private Sub myworkerclass_AddDateTime(ByVal message As String, ByVal thecolor As System.Drawing.Color) Handles myworkerclass.AddDateTime
        Me.rtb_messages.AppendText(message + vbNewLine)
        Me.rtb_messages.Select(Me.rtb_messages.Find(message), message.Length)
        MsgBox(Me.rtb_messages.SelectedText)
        Me.rtb_messages.SelectionColor = thecolor
    End Sub

Open in new window

0
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 21832490
You can also do it this way:
    Private Sub myworkerclass_AddDateTime(ByVal message As String, ByVal thecolor As System.Drawing.Color) Handles myworkerclass.AddDateTime
        Me.rtb_messages.SelectionStart = Me.rtb_messages.TextLength
        Me.rtb_messages.SelectionColor = thecolor
        Me.rtb_messages.SelectedText = message & vbCrLf
    End Sub

Open in new window

0
 

Author Comment

by:emresamisuzer
ID: 21836666
Thanks for your responses but I need the appended text to be appended at the top line of the richtextbox. That is why I use the code:
Me.rtb_messages.Text = message & vbCrLf & Me.rtb_messages.Text
0
 
LVL 48

Accepted Solution

by:
jpaulino earned 500 total points
ID: 21836830
You can change it to this:
    Private Sub myworkerclass_AddDateTime(ByVal message As String, ByVal thecolor As System.Drawing.Color) Handles myworkerclass.AddDateTime
        With Me.rtb_messages
            .SelectedText = IIf(.SelectedText = String.Empty, message & vbNewLine, message & vbNewLine & .SelectedText)
            .Select(.Find(message), message.Length)
            .SelectionColor = thecolor
        End With
    End Sub

Open in new window

0
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 21838228
Mine would be:
    Private Sub myworkerclass_AddDateTime(ByVal message As String, ByVal thecolor As System.Drawing.Color) Handles myworkerclass.AddDateTime
        Me.rtb_messages.SelectionStart = 0
        Me.rtb_messages.SelectionLength = 0
        Me.rtb_messages.SelectionColor = thecolor
        Me.rtb_messages.SelectedText = message & vbCrLf
    End Sub

Open in new window

0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This document covers how to connect to SQL Server and browse its contents.  It is meant for those new to Visual Studio and/or working with Microsoft SQL Server.  It is not a guide to building SQL Server database connections in your code.  This is mo…
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …
Are you ready to implement Active Directory best practices without reading 300+ pages? You're in luck. In this webinar hosted by Skyport Systems, you gain insight into Microsoft's latest comprehensive guide, with tips on the best and easiest way…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question