bestimmten Buchstaben in richtextbox immer hervorheben

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von xtts02.

    bestimmten Buchstaben in richtextbox immer hervorheben

    Ich wollte nur fragen ob jemand weiß wie man es so machen kann das das Programm einen bestimmten Buchstaben immer in einer an deren Farbe erscheinen lässt hinterher also wenn man auf z.b suchen klickt dieser Buchstabe dann in rot erscheint.

    Vielen Dank schon mal im vorraus!

    @Rinecamo: Wenn Du keine Ahnung hast, solltest Du keinen Beitrag verfassen.
    @Abwehrschild:reinklicken und Button drücken

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim index As Integer = RichTextBox1.SelectionStart
    4. RichTextBox1.SelectionLength = 1
    5. Dim txt As String = RichTextBox1.SelectedText
    6. index = 0
    7. Do
    8. index = RichTextBox1.Text.IndexOf(txt, index)
    9. If (index = -1) Then
    10. Exit Do
    11. End If
    12. RichTextBox1.SelectionStart = index
    13. RichTextBox1.SelectionLength = 1
    14. RichTextBox1.SelectionColor = Color.Red
    15. index += 1
    16. Loop
    17. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das ist ein schönes Beispiel für die Verwendung von RegEx

    VB.NET-Quellcode

    1. 'Imports System.Text.RegularExpressions
    2. ' Nicht vergessen
    4. Private Sub RichTextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles RichTextBox1.TextChanged, TextBox1.TextChanged
    5. Me.HighLightRichtTextBoxText(RichTextBox1, TextBox1.Text)
    6. End Sub
    8. Private Sub HighLightRichtTextBoxText(ctrl As RichTextBox, hightLightText As String)
    9. ' Aussteigen, falls Richtextbox nicht angegeben oder keinen Text enthält
    10. If ctrl Is Nothing OrElse ctrl.Text.Trim.Length = 0 Then Return
    12. ' Zurücksetzen
    13. With ctrl
    14. .SelectionStart = 0
    15. .SelectionLength = .TextLength
    16. .SelectionColor = Color.Black
    17. End With
    19. ' Aussteigen, falls der zu suchende Text nicht angegeben ist
    20. If String.IsNullOrEmpty(hightLightText) Then Return
    22. ' Highlight
    23. For Each m As Match In Regex.Matches(ctrl.Text, hightLightText)
    24. With ctrl
    25. .SelectionStart = m.Index
    26. .SelectionLength = m.Length
    27. .SelectionColor = Color.Red
    28. End With
    29. Next
    30. End Sub

Facebook
Telefonspende