Rubrik: Controls · ListBox & ComboBox | VB-Versionen: VB.NET | 10.05.06 |
ComboBox - Farbe wechsle dich (.NET) Eine ComboBox, bei der die Einträge abwechselnd in einer anderen Hintergrundfarbe dargestellt werden. | ||
Autor: Dieter Otter | Bewertung: | Views: 23.559 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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