Farbe von Text in ListBox ändern

  • VB.NET

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

    Farbe von Text in ListBox ändern

    Hallo zusammen!

    Ich schreibe eine kleine Programm in der will ich die Farbe von Text in ListBox ändern. Ich habe folgende Code geschrieben, aber es funktioniert leider nicht. Kann mir jemand sagen wo habe ich Fehler ???

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class BackupWatchdog
    4. Dim PfadDatum As String ' Pfad zur Datumdatei
    5. Dim fstr As FileStream
    6. Private Sub cmdPfad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPfad.Click
    7. If OpenFileDialog.ShowDialog = DialogResult.OK Then
    8. PfadDatum = OpenFileDialog.FileName ' in der Vareable "Pfad" wird Dateipfad gespeichert
    9. End If
    10. PfadSchreiben(PfadDatum)
    11. End Sub
    13. Private Sub BackupWatchdog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. PfadDatum = PfadLesen()
    16. If PfadDatum = "" Then
    17. ListBox.Items.Add(" Pfad zur Datumdatei eingeben !")
    18. ListBox.Items.Add(" Datum manuell mit Check pruefen !")
    19. End If
    21. End Sub
    23. Private Sub ListBox_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox.DrawItem
    24. ListBox.DrawMode = DrawMode.OwnerDrawFixed
    25. ' Draw the background of the ListBox control for each item.
    26. e.DrawBackground()
    27. ' Define the default color of the brush as black.
    28. Dim myBrush As Brush
    30. ' Determine the color of the brush to draw each item based on the index of the item to draw.
    31. Select Case (e.Index)
    32. Case 0
    33. myBrush = Brushes.Red
    34. Case 1
    35. myBrush = Brushes.Orange
    36. Case 2
    37. myBrush = Brushes.Green
    38. End Select
    40. ' Draw the current item text based on the current Font and the custom brush settings.
    41. e.Graphics.DrawString(ListBox.Items(e.Index), e.Font, myBrush, New RectangleF(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height))
    42. ' If the ListBox has focus, draw a focus rectangle around the selected item.
    43. e.DrawFocusRectangle()
    46. End Sub
    47. End Class

Facebook
Telefonspende