RichTextBox - SelectionColor

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    RichTextBox - SelectionColor

    Hi,
    ich versuche grade Texte mit verschiedenen Farben in eine RichTextBox einzufügen, aber hab ein kleines Problem beim Setzen der Farbe. Hier mal mein Code:

    VB.NET-Quellcode

    1. Private Counter As Integer = 0
    3. Private Sub Button1_Click(...)
    4. Counter += 1
    6. Select Case Counter
    7. Case 1
    8. AddMessage("ABC", Color.Blue)
    9. Case 2
    10. AddMessage("DEF", Color.Green)
    11. Case 3
    12. AddMessage("GHI", Color.Red")
    13. Counter = 0
    14. End Select
    15. End Sub
    17. Private Sub AddMessage(ByVal Text As String, ByVal Color As Color)
    18. Select Case RichTextBox1.TextLength
    19. Case 0
    20. RichTextBox1.AppendText(Text)
    21. RichTextBox1.SelectionStart = RichTextBox1.Find(Text)
    22. RichTextBox1.SelectionColor = Color
    23. Case Else
    24. RichTextBox1.AppendText(vbNewLine & Text)
    25. RichTextBox1.SelectionStart = RichTextBox1.Find(Text)
    26. RichTextBox1.SelectionColor = Color
    27. End Select
    28. End Sub

    Das Problem ist nun, dass die ersten drei mit der richtigen Farbe eingefügt werden, aber danach ändert sich die Farbe nicht mehr. Also "ABC" wird blau eingefügt, "DEF" grün, "GHI" rot und danach wird alles mit rot eingefügt, den Fehler finde ich jedoch nicht..

    ich würde sagen wenn du 2 mal "ABC" drin hast dann findet RichTextBox1.Find(Text) nur den ersten und nimmt nicht den zweiten

    edit: ich würdes so machen

    VB.NET-Quellcode

    1. Private Sub AddMessage(ByVal Text As String, ByVal Color As Color)
    2. Select Case RichTextBox1.TextLength
    3. Case 0
    4. RichTextBox1.AppendText(Text)
    5. RichTextBox1.SelectionStart = RichTextBox1.TextLength - Text.Length
    6. RichTextBox1.SelectionLength = Text.Length
    7. RichTextBox1.SelectionColor = Color
    8. Case Else
    9. RichTextBox1.AppendText(vbNewLine & Text)
    10. RichTextBox1.SelectionStart = RichTextBox1.TextLength - Text.Length
    11. RichTextBox1.SelectionLength = Text.Length
    12. RichTextBox1.SelectionColor = Color
    13. End Select
    14. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bluespide“ ()

    ist nicht die beste lösung aber dürfte klappen,kann man ja umbauen ^^

    VB.NET-Quellcode

    1. RichTextBox1.Text = "Hallo ich bin es Hallo wer bist du Hallo"
    2. Dim sucheNach As String = "Hallo"
    3. Dim StartIndex As Int32 = 0
    5. While RichTextBox1.Text.IndexOf(sucheNach, StartIndex) >= 0
    6. RichTextBox1.SelectionStart = RichTextBox1.Text.IndexOf(sucheNach, StartIndex)
    7. RichTextBox1.SelectionLength = sucheNach.Length
    8. RichTextBox1.SelectionColor = Color.Blue
    9. StartIndex = RichTextBox1.Text.IndexOf(sucheNach, StartIndex) + sucheNach.Length
    10. End While


    Lg.
    Nsjdvv

    so gehts:

    VB.NET-Quellcode

    1. Private Counter As Integer = 0
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Counter += 1
    5. Select Case Counter
    6. Case 1
    7. AddMessage("ABC", Color.Blue)
    8. Case 2
    9. AddMessage("DEF", Color.Green)
    10. Case 3
    11. AddMessage("GHI", Color.Red)
    12. Counter = 0
    13. End Select
    14. End Sub
    16. Private Sub AddMessage(ByVal Text As String, ByVal Color As Color)
    17. Dim derzeit As Integer = RichTextBox1.TextLength
    18. Select Case RichTextBox1.TextLength
    19. Case 0
    20. RichTextBox1.AppendText(Text)
    21. RichTextBox1.SelectionStart = RichTextBox1.Find(Text)
    22. RichTextBox1.SelectionColor = Color
    23. Case Else
    24. RichTextBox1.AppendText(vbNewLine & Text)
    25. RichTextBox1.SelectionStart = RichTextBox1.Find(Text, derzeit, RichTextBoxFinds.MatchCase)
    26. RichTextBox1.SelectionColor = Color
    27. End Select
    28. End Sub

    mfg.skyscater

    Ich würde SelectionStart und SelectionLength explizit zuweisen, und nicht Richtextbox.Find benutzen (von dem ich nicht recht weiß, wasses macht, und wies sich auf die SelectionLength auswirkt).

    Jdfs: In AddMessage - Case 0 - ich sehe auch nicht, dass das jemals angesprungen würde