[VB] RichText Highlighter

setzt wenn FindMyWord was gültiges liefert SelectionLength mit der länge des gefundenen Worten
Code:
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.
 
Uff xD

Danke aufjedenfall für die Hilfe^^
Habe jetzt nh Source Gefunden^^
Visual Basic:
    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
 
Zurück