@inmate
Dein Ansatz ist schon nicht schlecht , funktioniert jedoch nicht , und ich denke nicht das es ihm was bringt wenn einfach das Wort "codesoft" an den Text angefügt wird
Das müsste funktionieren
Code:
Dim SucheWort As String = "codesoft"
If RichTextBox1.Text.Contains(SucheWort) = True Then
RichTextBox1.SelectionStart = RichTextBox1.Text.IndexOf(SucheWort)
RichTextBox1.SelectionLength = SucheWort.Length
RichTextBox1.SelectionColor = Color.Red
Else
MessageBox.Show("Suche ergab keine treffer", String.Empty, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
MfG