Solved

How to read word(s) from RichTextBox only if blue

Posted on 2009-07-13
11
211 Views
Last Modified: 2013-11-08
I have a Richtextbox that uses black and blue font color.  The blue ones are key words that I want the user to be able to click on to display some definition.  How can I read only the words that are blue to the left and/or right of the mouse click to look up my definition?
0
Comment
Question by:GarySB
11 Comments
 
LVL 21

Expert Comment

by:silemone
ID: 24842877
if you convert it to xml, it will have all of the attributes and you can then see the colors of the text...
0
 

Author Comment

by:GarySB
ID: 24842924
I'm already using a richtextbox for highlighting purpose.  I've seen some other code sample that do something similar, but wrapping might be a issue.  Can the letter/character position of the click be found? and How to test the color of the letter for forcolor blue?
0
 

Author Comment

by:GarySB
ID: 24842948
How do you even add a xml? to a Panel or Form?
0
Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

 

Author Comment

by:GarySB
ID: 24843298
I prefer a Richtextbox solution
0
 
LVL 96

Expert Comment

by:Bob Learned
ID: 24876681
I would think that you could start with the SelectionStart, move the selection back until you find a non-blue character, and then move forward until you get the next non-blue character, or the end of the text.  Then, you would have you range, and you could get the text between those 2 character index markers.
0
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 150 total points
ID: 24888224
Using Bob's suggestion, here is a slight variation:
(my test project had just a Label and a RichTextBox)
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim words() As String = {"cat", "dog", "fish", "hamster", "snake"}
        Dim colors() As Color = {Color.Red, Color.Blue, Color.Green}
        Dim R As New Random
        For i As Integer = 1 To 50
            AppendWord(words(R.Next(0, words.Length)), colors(R.Next(0, colors.Length)))
        Next
    End Sub
 
    Private Sub AppendWord(ByVal word As String, ByVal clr As Color)
        RichTextBox1.SelectionStart = RichTextBox1.TextLength
        RichTextBox1.SelectionLength = 0
        RichTextBox1.SelectionColor = clr
        RichTextBox1.SelectedText = " " & word & " "
    End Sub
 
    Private Sub RichTextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.Click
        Dim pt As Point = RichTextBox1.PointToClient(Cursor.Position)
        Dim index As Integer = RichTextBox1.GetCharIndexFromPosition(pt)
        RichTextBox1.SelectionStart = index
        RichTextBox1.SelectionLength = 1
        Dim clr As Color = RichTextBox1.SelectionColor
        If clr.Equals(Color.Blue) Then
            While RichTextBox1.SelectionStart > 0
                RichTextBox1.SelectionStart = RichTextBox1.SelectionStart - 1
                RichTextBox1.SelectionLength = RichTextBox1.SelectionLength + 1
 
                If Not RichTextBox1.SelectionColor.Equals(clr) Then
                    RichTextBox1.SelectionStart = RichTextBox1.SelectionStart + 1
                    RichTextBox1.SelectionLength = RichTextBox1.SelectionLength - 1
                    Exit While
                End If
            End While
            While RichTextBox1.SelectionStart + RichTextBox1.SelectionLength < RichTextBox1.TextLength
                RichTextBox1.SelectionLength = RichTextBox1.SelectionLength + 1
 
                If Not RichTextBox1.SelectionColor.Equals(clr) Then
                    RichTextBox1.SelectionLength = RichTextBox1.SelectionLength - 1
                    Exit While
                End If
            End While
 
            Dim BlueWords As String = RichTextBox1.SelectedText.Trim
            RichTextBox1.SelectionLength = 0
            Label1.Text = BlueWords
        Else
            RichTextBox1.SelectionLength = 0
            Label1.Text = "{Not Blue}"
        End If
    End Sub
 
End Class

Open in new window

0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 24896650
I didn't realize this was a duplicate question...  =\

Anyhoo, at the very bottom of the other question the author states:

    "Can the function be modified to read 'Richtext box' assuming both words are blue.  In other words when the user clicks the mouse on a blue word it should really read all words left and rgiht of the click that are blue."

The approach I posted here is different from the other and actually handles this additional requirement.  The other solution is inspecting the characters looking for word boundaries while my approach is simply looking for where the blue portion starts and stops.

Just thought I'd throw that out there...delete the question if you want.  =)
0
 

Author Closing Comment

by:GarySB
ID: 31602966
Thank you for the routine.  As you stated the other solution works for a single word.
0

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

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

A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…

809 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