Hallo zusammen.
Ich lasse mir in einem Datensatz-Edit-Dialog eine ComboBox mit Farben füllen
Spoiler anzeigen
Das funzt auch einwandfrei. Ich hätte jetzt gerne noch, dass wenn ich den Dialog öffne, er mir die Farbe aus dem Datensatz anzeigt.
Also ich wähle vorher aus z.B. "White", das wird so im Datensatz als String gespeichert. Beim Editieren des Datensatzes soll er mir auch White wieder als Farbe in der
Combobox anzeigen. Wie stell ich das am geschicktesten an?
Mit
LG
Ich lasse mir in einem Datensatz-Edit-Dialog eine ComboBox mit Farben füllen
VB.NET-Quellcode
VB.NET-Quellcode
- Private Sub cmb_DrawItem(sender As Object, e As DrawItemEventArgs) Handles cmbFarbe.DrawItem
- If e.Index = -1 Then
- Exit Sub
- End If
- Dim sysBrush As Brush = New SolidBrush(Color.FromName(DirectCast(cmbFarbe.Items(e.Index), String)))
- e.Graphics.DrawRectangle(New Pen(Brushes.Black), e.Bounds.Left + 2, e.Bounds.Top + 2, 30, e.Bounds.Height - 5)
- e.Graphics.FillRectangle(sysBrush, e.Bounds.Left + 3, e.Bounds.Top + 3, 29, e.Bounds.Height - 6)
- e.Graphics.DrawString(DirectCast(cmbFarbe.Items(e.Index), String), cmbFarbe.Font, Brushes.Black, 35, e.Bounds.Top + 2)
- End Sub
Das funzt auch einwandfrei. Ich hätte jetzt gerne noch, dass wenn ich den Dialog öffne, er mir die Farbe aus dem Datensatz anzeigt.
Also ich wähle vorher aus z.B. "White", das wird so im Datensatz als String gespeichert. Beim Editieren des Datensatzes soll er mir auch White wieder als Farbe in der
Combobox anzeigen. Wie stell ich das am geschicktesten an?
Mit
cmbFarbe.SelectedItem = Color.FromName(rw.Farbe)
geht's leider nicht.LG
"Na, wie ist das Wetter bei dir?"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"