✔ [VB] RichText Highlighter

[Spyke]

setzt wenn FindMyWord was gültiges liefert SelectionLength mit der länge des gefundenen Worten

SelectionLength="insert".Length

und zum schluss SelectionLength wieder auf 0 setzen (oder 1, bin mir grad unsicher)
Und dann SelectionColor noch wieder auf Schwarz setzen.

 

[sub7even]

Uff xD

Danke aufjedenfall für die Hilfe^^
Habe jetzt nh Source Gefunden^^

    Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged

        Dim words As New List(Of String)

        words.Add("Select")

        words.Add("Insert")

        If RichTextBox2.Text.Length > 0 Then

            Dim selectStart As Integer = RichTextBox2.SelectionStart

            RichTextBox2.Select(0, RichTextBox2.Text.Length)

            RichTextBox2.SelectionColor = Color.Black

            RichTextBox2.DeselectAll()

            For Each oneWord As String In words

                Dim pos As Integer = 0

                Do While RichTextBox2.Text.ToUpper.IndexOf(oneWord.ToUpper, pos) >= 0

                    pos = RichTextBox2.Text.ToUpper.IndexOf(oneWord.ToUpper, pos)

                    RichTextBox2.Select(pos, oneWord.Length)

                    RichTextBox2.SelectionColor = Color.Blue

                    pos += 1

                Loop

            Next

            RichTextBox2.SelectionStart = selectStart

        End If

    End Sub

Das t perfekt^^
Quelle: KLICK

 

[Spyke]

ach verdammt stimmt ja, man kann ja bei der RichTextBox direkt mit Text arbeiten :-(
Mach aber nicht ToUpper sondern lieber

Text.IndexOf(oneWord, pos, StringComparison.OrdinalIgnoreCase)

http://msdn.microsoft.com/en-us/library/ms224424(VS.80).aspx