Need help with rich textbox with colors things look please

[XxEvilxX]

ok here what i want to do like if there a word in the rtf Called Port I want the word port to be Blue and other words can someone in here please help me with this?

[da_silvy]

i have already answered this question, try searching next time

anyway, here it is for you

RichTextBox1.Text = "Port: LPT1" 'Whatever the text is
RichTextBox1.SelStart = 0 'Where the other text before port ends
RichTextBox1.SelLength = 4 'the length of "Port"
RichTextBox1.SelColor = vbBlue 'Set the color of selected text
RichTextBox1.SelStart = Len(RichTextBox1.Text) 'Goto end of text box

------------------
david
Teenage Programmer

[XxEvilxX]

hey what do i use this code in it not working in the change code thing

RichTextBox1.Text = "Port: LPT1" 'Whatever the text is

RichTextBox1.SelStart = 0 'Where the other text before port ends
RichTextBox1.SelLength = 4 'the length of "Port"
RichTextBox1.SelColor = vbBlue 'Set the color of selected text
RichTextBox1.SelStart = Len(RichTextBox1.Text) 'Goto end of text box

[Serge]

You can use this function I wrote:

Public Sub ColorWords(pRich As RichTextBox, pWord As String, pColor As OLE_COLOR)
    Dim iPos As Integer
    
    With pRich
        iPos = InStr(iPos + 1, .Text, pWord, vbTextCompare)
        Do While iPos <> 0
            .SelStart = iPos - 1
            .SelLength = Len(pWord)
            .SelColor = pColor
            iPos = InStr(iPos + 1, .Text, pWord, vbTextCompare)
        Loop
    End With
End Sub

Then call this sub routine like this:

ColorWords RichTextBox1, "Port", vbBlue

------------------

Serge

Senior Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819

[XxEvilxX]

Thanx Man That Otehr GuyDid Not Help Me With Crap You Help Alot It was Just What I Was Looking For