Coloring RTB

[nareth]

ok i want to color some words like in the VB IDE.
can anyone show me a very fast example.
also how do i get current line of RTB?

[Luke K]

What do you mean highlight words in the VB IDE? Changing the colour, font etc of your code?

If so, Tools->Options->Editor Format.

[nareth]

no i mean how can i color words like in vb IDE in a RTB box

[nareth]

?????

[vicros]

RichtextBox1.SelColor=vbGreen

Try and search for "Richtext" and "Color", there's a whole sh**load of well documented examples to be found in this forum.

[Luke K]

Relatively simple but you must manually input the words you want highlighted in the Expression argument of the Split() function iv used delimited by semi-colons. In my example, "Visual Basic", "Compile" and "Debug" will be highlighted.

Option Explicit
 
Private Sub cmdHighlight_Click()
 
    Dim srchT As Integer
    Dim srchIDE As Integer
    Dim stringIDE() As String
 
    stringIDE = Split("Visual Basic;Compile;Debug;", Chr$(59), -1)
    For srchT = 1 To Len(rtfBox.Text) Step 1
        For srchIDE = 0 To UBound(stringIDE())
            If LCase(Mid(rtfBox.Text, srchT, Len(stringIDE(srchIDE)))) = LCase(stringIDE(srchIDE)) Then
                With rtfBox
                    .SelStart = srchT - 1
                    .SelLength = Len(stringIDE(srchIDE))
                    .SelColor = &HFF
                End With: Exit For
            End If
        Next srchIDE
    Next srchT
 
End Sub

[nareth]

RichtextBox1.SelColor=vbGreen

Try and search for "Richtext" and "Color", there's a whole sh**load of well documented examples to be found in this forum.

no spam please

[nareth]

Relatively simple but you must manually input the words you want highlighted in the Expression argument of the Split() function iv used delimited by semi-colons. In my example, "Visual Basic", "Compile" and "Debug" will be highlighted.

Option Explicit
 
Private Sub cmdHighlight_Click()
 
    Dim srchT As Integer
    Dim srchIDe As Integer
    Dim stringIDE() As String
 
    stringIDE = Split("Visual Basic;Compile;Debug;", Chr$(59), -1)
    For srchT = 1 To Len(rtfBox.Text) Step 1
        For srchIDe = 0 To UBound(stringIDE())
            If Mid(rtfBox.Text, srchT, Len(stringIDE(srchIDe))) = stringIDE(srchIDe) Then
                With rtfBox
                    .SelStart = srchT - 1
                    .SelLength = Len(stringIDE(srchIDe))
                    .SelColor = &HFF
                End With: Exit For
            End If
        Next srchIDe
    Next srchT
 
End Sub

are you sure this is fast enough for a whole script?

[vicros]

Originally Posted by nareth

no spam please

huh?

[Luke K]

It is the fastest way I can think of. If the script is big, give the user something to look at, a progressbar perhaps that shows the progress of the highlighting.

[nareth]

woulndt it be better to get the current line and highlight the words on that if the current line changes like in vb IDE

[Luke K]

Sure, you can do that if you want. I'm not stopping you
You would still have to keep a count of where that word starts in the whole of the text plus the position of the text that starts in the line.

[nareth]

how would i do this

[nareth]

bump