change color

[om-yousif]

i need to search a richtextbox for any text between << text >>

then change its color to blue including the word befor the brackets

example:
text befor searching
In all our MBA and MSc programmes, you can <<choose from a range>> of elective modules to personalise the content of your degree. Alternatively, you can follow one of <<our Specialisation>> Tracks to acquire a more focused set of skills and knowledge. This means that you can choose modules that are relevant to your <<needs today as well>> as those that will formalise your

text after searching
In all our MBA and MSc programmes, you can <<choose from a range>> of elective modules to personalise the content of your degree. Alternatively, you can follow one of <<our Specialisation>> Tracks to acquire a more focused set of skills and knowledge. This means that you can choose modules that are relevant to your <<needs today as well>> as those that will formalise your

[RobDog888]

You may want to read about moeur's RTB in CodeBank - http://vbforums.com/showthread.php?t=355994

[om-yousif]

is there any simplist way to do it without using modules
because i'm new in VB and i need a simple code that i can understand

[Hack]

Try

Dim i As Long
    With RichTextBox1
        For i = 1 To Len(.Text)
            If Mid(.Text, i, 1) = "<<" Then
                .SelStart = i
                .SelLength = InStr(i, .Text, ">>") - i - 1
                .SelColor = vbBlue
                .SelBold = True
            End If
        Next
    End With

[om-yousif]

Hack
it didn't work
whats the problem?

[Ember]

[B]Dim y As Integer[/B]
    Dim i As Long
    With RichTextBox1
        For i = 1 To Len(.Text)
            If Mid(.Text, i, 2) = "<<" And i > 2 Then
              [B]y = InStrRev(.Text, " ", i - 2)[/B]
                .SelStart = [B]y[/B]   'i - 2 -
                .SelLength = InStr(i, .Text, ">>")  -[B] y[/B] + 2 
                .SelColor = vbBlue
                .SelBold = True
            End If
        Next
    End With

Is what it should be like.

[gavio]

is there any simplist way to do it without using modules
because i'm new in VB and i need a simple code that i can understand

Omg...

Module is the same as a Form - actually, better. If you declare a variable with a simple 'Dim' and you put it in a Module that variable is accessible from any module in your app (Form, Module, Class...). It's quite usefull to 'group' methods/functions also... And that's it - nothing more, nothing complicated and hard to understand.

Cheers

[gavio]

@Ember: don't want to be critical, but... your code works in general (if you have "...blah blah <<blah>>..."). But there's a problem if you have only "<<blah" withouth ">>". You'll need to search for ">>" also before aplying the colour

[Ember]

@Ember:<<blah" withouth ">>". You'll need to search for ">>" also before aplying the colour

I thought of it an d edited the code. Things like that can happen. Sorry!

[gavio]

... Things like that can happen...

But of course