Change text colors

[rbnwares]

Is there any short way of changing a text contained in the rich textbox? I do want to create an editor that behaves like VB IDE and other great editors. For example, I want to change the color of the comment text to green, ordinary text to blue and keywords to blue.

[Lord Orwell]

no.
here's how i did it for existing text:
set the text selection boundaries to include the text to modify.
then do a richtextbox.selcolor=newcolor
and unset the selection (or put it back to original)

For new text being parsed in, simply change the Richtextbox.selcolor as you go.

By the way, i found a bug in the richtextbox control.
when you have just the cursor on screen, and no text
selected and try to read the data of the text next to the cursor, it returns the values for the letter to the LEFT of the cursor, not the right. Quite annoying. I had a custom toolbar that updated pressed buttons depending on the value of the character next to the cursor (italic button, bold button, etc), and this really messed up how my program worked.

Add to a Form with a RichTextBox.

Option Explicit
Const vbDarkBlue = &H800000
Const vbDarkGreen = &H8000&


Private Sub HighlightText(sKeyword As String, iColour As Long)
    
    Dim nStart As Integer, sPrevChar As String, sNextChar As String
                                               
    nStart = InStr(1, LCase(RichTextBox1.Text), sKeyword)
                                                                                  
    Do While nStart <> 0
        If nStart > 1 Then
            sPrevChar = Mid$(RichTextBox1.Text, nStart - 1, 1)
        Else
            sPrevChar = " "
        End If
                                                        
        If Len(RichTextBox1.Text) >= nStart + Len(sKeyword) Then
            sNextChar = Mid$(RichTextBox1.Text, nStart + Len(sKeyword), 1)
        Else
            sNextChar = " "
        End If
                                                           
        If (sPrevChar = Chr(32) Or sPrevChar = Chr(13) Or _
        sPrevChar = Chr(10) Or sPrevChar = Chr(9)) And _
        (sNextChar = Chr(32) Or sNextChar = Chr(13) Or _
        sNextChar = Chr(10) Or sNextChar = Chr(9)) Then
            With RichTextBox1
                .SelStart = nStart - 1
                .SelLength = Len(sKeyword)
                .SelColor = vbDarkBlue
                .SelText = StrConv(.SelText, vbProperCase)
                .SelStart = Len(RichTextBox1.Text)
                .SelColor = iColour
            End With
        End If
                                                  
        nStart = InStr(nStart + Len(sKeyword), LCase(RichTextBox1.Text), sKeyword)
    Loop

End Sub

Private Sub Form_Resize()
    RichTextBox1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Private Sub RichTextBox1_Change()
With RichTextBox1
    .SelStart = 0
    .SelLength = Len(.Text)
    .SelColor = vbBlack
    .SelStart = Len(.Text)
End With

                                    
' Add more custom words here
HighlightText "if", vbBlue
HighlightText "then", vbBlue
HighlightText "end", vbBlue
HighlightText "else", vbBlue
HighlightText "open", vbBlue
End Sub

[rbnwares]

Wow! Thanks a lot for ur help. I will try it as soon as possible.