ListBox abwechselnd farblich hinterlegen!

    • VB.NET

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Günni.

      ListBox abwechselnd farblich hinterlegen!

      Hallo zusammen,

      Habe hier einen kleinen Code gebastelt mitdem Ihr eine ListBox abwechselnd farblich hinterlegen könnt!
      Ich dachte mir vielleicht kann es ja noch jemand gebrauchen! :D

      Benötigt wird: 1x ListBox, 1x CheckBox

      ListBox1:
      In den Eigenschaften stellt Ihr den Punkt DrawMode auf OwnerDrawFixed

      CheckBox1:

      VB.NET-Quellcode

      1. 'Hier wird die ListBox Neu gezeichnet bei Druck auf die CheckBox
      2. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
      3. 'ListBox Neu Zeichnen
      4. ListBox1.Refresh()
      5. End Sub


      Danach müßt Ihr das Neu Zeichnen manuell modifizieren:

      VB.NET-Quellcode

      1. 'ListBoxItems Zeichnen manuell modifizieren (ListBoxDrawMode muß auf OwnerDrawFixed gestellt sein)
      2. Private Sub OnDrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs) Handles ListBox1.DrawItem
      4. 'Schriftfarbe zuweisen
      5. Dim Schriftfarbe As String = "Black"
      7. 'Item und Itembegrenzungen ermitteln
      8. Dim Item As Object
      9. Dim Itembegrenzung As Rectangle = e.Bounds
      11. 'Hier wird der Itemindex ermittelt, wenn negativ auf Null gesetzt
      12. Try
      13. 'Index des jeweiligen Items zuweisen
      14. Item = ListBox1.Items(e.Index)
      15. Catch ex As Exception
      16. 'Wenn negativ auf Null stellen
      17. Item = CObj("0")
      18. End Try
      20. 'Prüfen ob jeweiliges Item farblich Hinterlegt wird
      21. If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
      22. 'Wenn Selektiert wird es hervorgehoben
      23. e.Graphics.FillRectangle(SystemBrushes.Highlight, Itembegrenzung)
      24. 'Schriftfarbe zuweisen
      25. Schriftfarbe = "White"
      26. ElseIf ListBox1.Items.IndexOf(Item) Mod 2 = 0 Then
      27. 'Wenn Zeile gerade wird es nicht hinterlegt
      28. e.Graphics.FillRectangle(SystemBrushes.Window, Itembegrenzung)
      29. 'Schriftfarbe zuweisen
      30. Schriftfarbe = "black"
      31. Else
      32. 'Wenn Zeilen nicht gerade und nicht selektiert
      33. 'Prüfen ob Zeilen hinterlegen aktiviert ist
      34. If Me.CheckBox1.Checked = True Then
      35. 'Wenn aktiviert hinterlegen
      36. e.Graphics.FillRectangle(Brushes.Moccasin, Itembegrenzung)
      37. ElseIf Me.CheckBox1.Checked = False Then
      38. 'Wenn deaktiviert nicht hinterlegen
      39. e.Graphics.FillRectangle(SystemBrushes.Window, Itembegrenzung)
      40. End If
      41. 'Schriftfarbe zuweisen
      42. Schriftfarbe = "black"
      43. End If
      45. 'Stift aktivieren und Stiftfarbe zuweisen
      46. Dim Stiftart As New SolidBrush(Color.FromName(Schriftfarbe))
      48. 'Schriftart und Schriftstil festlegen
      49. Dim Schriftart As Font
      50. Schriftart = New Font(e.Font, FontStyle.Regular)
      52. 'Aktuelles Item modifiziert Zeichnen
      53. e.Graphics.DrawString(Item, Schriftart, Stiftart, Itembegrenzung.X, Itembegrenzung.Y)
      55. 'Stift und Schriftstil zurücksetzen
      56. Stiftart.Dispose()
      57. Schriftart.Dispose()
      59. End Sub


      So ich hoffe mal das jemand damit was anfangen kann!

      Greetz Euer Günni 8-)

      Hallöchen,
      scheint wirklich nicht schlecht zu sein :)
      aber i-wie bin ich wohl in dem bereich noch ein ziemlicher anfänger... was muss ich z. b. für stiftart eingeben?
      komme i-wie noch nicht so ganz klar mit dem code... ich probiere gern aus, aber hier komm ich nicht wirklich weiter...
      danke für eure hilfe
      greets

      hey günni,
      oki... das war's wohl... hatte in der listbox nix drin -.-" *LOL*

      aber ich versteh immernoch net ganz, welchen sinn oder was man mit der stiftart macht...

      wie kann man denn die farbe ändern, die abwechselnd den hintergrund färbt?
      sry, ich hab zwar ein bisschen was aus der schule mitgenommen, aber ich bin kein profi... und das haben wir auch nicht gemacht, noch nicht vermutlich...
      greets :)

      Die Stiftart muß zugewiesen werden da du das automatisch neuzeichnen überschreibst und es manuell machst!
      Du weißt Quasi deinen PC an die Listbox nach deinen Wünschen neu zu zeichnen.

      Die Hinterlegungsfarbe änders du in diesen Befehlen hier:

      VB.NET-Quellcode

      1. e.Graphics.FillRectangle(SystemBrushes.Window, Itembegrenzung)


      nur den Punkt "SystemBrushes.Window"       ändern und schon haste andere Farbe!
      z.b.       Brushes.Moccasin usw. einfach mal bissel testen!

      Greetz Günni       8-)

    Facebook
    Telefonspende