Hej!

Kör en while-loop som hämtar data från en XML fil. Datan lagras i en RichTextBox rad för rad. Men jag skulle vilja färglägga visa ord och inte allt som görs just nu.

            While reader.Read
                Dim ScheduleDay As String = reader.GetAttribute("dag")
                Dim ScheduleName As String = reader.GetAttribute("namn")
                Dim ScheduleStarts As String = reader.GetAttribute("startar")
                Dim ScheduleEnds As String = reader.GetAttribute("slutar")


                If ScheduleDay = WeekDay Then

                    Chars = ScheduleStarts & " - " & ScheduleEnds & " " & ScheduleName & vbCrLf

                    rtb_schedule.Text &= Chars

                    rtb_schedule.Find(Chars.Substring(0, 13))
                    rtb_schedule.SelectionColor = Color.Red

                End If

            End While

först och främst find ger dig start punkten på det du söker så du behöver spara svaret någonstans.

svar=rtb_shedule.find(Chars.Substring(0, 13)))

sen så ska du markera den text du vill ha

rtb_shedule.select(svar, 13)

sen sätter du färgen

rtb_schedule.SelectionColor = Color.Red

sen släpper du markeringen tex

rtb_schedule.SelectionLength = 0