Rubrik: Controls · ListBox & ComboBox | VB-Versionen: VB.NET | 10.05.06 |
Nachfolgender Tipp zeigt, wie sich die Einträge einer ComboBox abwechselnd in einer anderen Hintergrundfarbe darstellen lassen. Hierzu müssen wir der ComboBox zunächst mitteilen, dass die Darstellung der Listen-Elemente nicht autom. erfolgen soll, sondern von uns selbst gezeichnet werden, was durch Setzen der DrawMode-Eigenschaft auf "OwnerDrawFixed" festgelegt wird.
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' ComboBox mit Werten füllen
With ComboBox1.Items
For i As Integer = 1 To 100
.Add("Eintrag " & i.ToString)
Next
End With
' Wir möchten uns um die Ausgabe der
' Listen-Einträge selbst kümmern
ComboBox1.DrawMode = DrawMode.OwnerDrawFixed
End Sub
Wann immer jetzt ein Eintrag der ComboBox-Liste gezeichnet werden muss, löst das Control das DrawItem-Ereignis aus, d.h. hier muss unser Code zum Einfärben des Hintergrunds eingefügt werden:
Private Sub ComboBox1_DrawItem(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
' ComboBox-Eintrag
Dim sItem As String = ComboBox1.Items(e.Index)
' Hintergrundfarbe
If (e.State And DrawItemState.HotLight) Or (e.State And DrawItemState.Selected) Then
' wenn Eintrag selektiert, Standard-Hintergrundfarbe für
' den Selektionsbalken verwenden
e.DrawBackground()
Else
' wenn Eintrag nicht selektiert, abwechselnde Hintergrundfarbe
Dim nColor As Color = IIf(e.Index Mod 2 = 0, Color.Yellow, Color.White)
e.Graphics.FillRectangle(New SolidBrush(nColor), e.Bounds)
End If
' Text ausgeben
e.Graphics.DrawString(sItem, e.Font, New SolidBrush(e.ForeColor), e.Bounds.X, e.Bounds.Y)
End Sub