Combobox mit Farbauswahl - beim Laden Farbe aus Row als SelectedItem anzeigen

  • VB.NET
  • .NET (FX) 4.0

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von tragl.

    Combobox mit Farbauswahl - beim Laden Farbe aus Row als SelectedItem anzeigen

    Hallo zusammen.
    Ich lasse mir in einem Datensatz-Edit-Dialog eine ComboBox mit Farben füllen
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub AddColorsToCmb()
    2. cmbFarbe.DrawMode = DrawMode.OwnerDrawFixed
    3. cmbFarbe.ItemHeight = 20
    4. Dim sysType As Type = GetType(System.Drawing.Color)
    5. For Each prop In sysType.GetProperties
    6. If prop.PropertyType Is GetType(System.Drawing.Color) Then
    7. cmbFarbe.Items.Add(prop.Name)
    8. End If
    9. Next
    10. End Sub


    VB.NET-Quellcode

    1. Private Sub cmb_DrawItem(sender As Object, e As DrawItemEventArgs) Handles cmbFarbe.DrawItem
    2. If e.Index = -1 Then
    3. Exit Sub
    4. End If
    5. Dim sysBrush As Brush = New SolidBrush(Color.FromName(DirectCast(cmbFarbe.Items(e.Index), String)))
    6. e.Graphics.DrawRectangle(New Pen(Brushes.Black), e.Bounds.Left + 2, e.Bounds.Top + 2, 30, e.Bounds.Height - 5)
    7. e.Graphics.FillRectangle(sysBrush, e.Bounds.Left + 3, e.Bounds.Top + 3, 29, e.Bounds.Height - 6)
    8. e.Graphics.DrawString(DirectCast(cmbFarbe.Items(e.Index), String), cmbFarbe.Font, Brushes.Black, 35, e.Bounds.Top + 2)
    9. 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!" :thumbsup:

    In der ComboBox sind Namen gespeichert. Von daher: cmbFarbe.SelectedItem = rw.Farbe, wenn rw.Farbe z.B. den Wert "Brown" hat, also ein Farbname ist.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    tragl schrieb:

    Ich lasse mir in einem Datensatz-Edit-Dialog eine ComboBox mit Farben füllen
    Dann lass Dir die ComboBox auch mit Farben füllen.
    Form mit ComboBox CbbColor und Label Label1:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Me.InitColorBox()
    4. End Sub
    6. Private Sub InitColorBox()
    7. Dim cols = New Dictionary(Of Color, String)
    8. cols.Add(Color.Red, "Rot")
    9. cols.Add(Color.Green, "Grün")
    10. cols.Add(Color.Blue, "Blau")
    12. Dim binding = New BindingSource()
    13. binding.DataSource = cols
    15. Me.CbbColor.DisplayMember = "Value"
    16. Me.CbbColor.ValueMember = "Key"
    17. Me.CbbColor.DataSource = binding
    19. Me.CbbColor.SelectedIndex = 0
    20. End Sub
    22. Private Sub CbbColor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CbbColor.SelectedIndexChanged
    23. Me.Label1.BackColor = CType(Me.CbbColor.SelectedValue, Color)
    24. End Sub
    25. End Class

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Da gefällt mit die Ursprungsvariante besser.
    Bilder

    • Result.png

      10,61 kB, 212×650, 56 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    Von daher: cmbFarbe.SelectedItem = rw.Farbe

    Danke, das Einfachste und naheliegendste hab' ich natürlich nicht probiert :S Ich teste heute abend mal :thumbup:

    @RodFromGermany: Ich wollte extra die Farbanzeige mit drin haben - das gefällt mir von daher schon ganz gut. Hier ging's nur um die Vorauswahl aus der Farbe, die als String im Datensatz hinterlegt ist. ;)
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    tragl schrieb:

    Ich wollte extra die Farbanzeige mit drin haben
    Die läuft bei mir irgend wie nicht:

    VB.NET-Quellcode

    1. Private Sub cmb_DrawItem(sender As Object, e As DrawItemEventArgs) Handles CbbColor.DrawItem
    2. If e.Index = -1 Then
    3. Exit Sub
    4. End If
    6. Dim col = CType(Me.CbbColor.SelectedValue, Color)
    7. Dim txt = CType(Me.CbbColor.SelectedItem, KeyValuePair(Of Color, String)).Value.ToString
    9. Dim sysBrush As Brush = New SolidBrush(col)
    10. e.Graphics.DrawRectangle(Pens.Black, e.Bounds.Left + 2, e.Bounds.Top + 2, 30, e.Bounds.Height - 5)
    11. e.Graphics.FillRectangle(sysBrush, e.Bounds.Left + 3, e.Bounds.Top + 3, 29, e.Bounds.Height - 6)
    12. e.Graphics.DrawString(txt, CbbColor.Font, Brushes.Black, 35, e.Bounds.Top + 2)
    13. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hast Du vorher die Sub AddColorsToCmb aufgerufen?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed OK, da ging mein Vorschlag nach hinten los.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Allerdings könnte man beide Vorschläge ein wenig fusionieren und so DataBinding effektiv nutzen, um eine Auswahl per Farbe oder Namen zu ermöglichen.

    VB.NET-Quellcode

    1. Imports System.Drawing
    3. Public Class FrmMain
    5. Private ReadOnly ColorPacks As New ColorPackList
    7. Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. ColorPacks.Fill()
    9. PrepareComboBox()
    10. End Sub
    12. Private Sub PrepareComboBox()
    13. cmbFarbe.DataSource = ColorPacks
    14. cmbFarbe.DrawMode = DrawMode.OwnerDrawFixed
    15. cmbFarbe.ItemHeight = 20
    16. End Sub
    18. Private Sub cmb_DrawItem(sender As Object, e As DrawItemEventArgs) Handles cmbFarbe.DrawItem
    19. If e.Index = -1 Then Return
    21. Dim SelectedColorPack = DirectCast(cmbFarbe.Items(e.Index), ColorPack)
    22. Dim sysBrush = DirectCast(GetType(Brushes).GetProperty(SelectedColorPack.Name).GetValue(GetType(Brushes)), Brush)
    23. e.Graphics.FillRectangle(sysBrush, e.Bounds.Left + 2, e.Bounds.Top + 2, 30, e.Bounds.Height - 4)
    24. e.Graphics.DrawRectangle(Pens.Black, e.Bounds.Left + 2, e.Bounds.Top + 2, 30, e.Bounds.Height - 4)
    25. e.Graphics.DrawString(SelectedColorPack.Name, cmbFarbe.Font, Brushes.Black, 40, e.Bounds.Top + 4)
    26. End Sub
    28. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    29. cmbFarbe.SelectedItem = ColorPacks.GetByColor(Color.Aqua)
    30. End Sub
    32. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    33. cmbFarbe.SelectedItem = ColorPacks.GetByName("LawnGreen")
    34. End Sub
    36. End Class
    38. Friend Class ColorPackList : Inherits List(Of ColorPack)
    39. Friend Sub Fill()
    40. Dim sysType As Type = GetType(Color)
    41. For Each prop In sysType.GetProperties
    42. If prop.PropertyType Is GetType(Color) Then
    43. Add(New ColorPack With {.Name = prop.Name, .Color = DirectCast(prop.GetValue(sysType), Color)})
    44. End If
    45. Next
    46. End Sub
    48. Friend Function GetByName(Name As String) As ColorPack
    49. Return SingleOrDefault(Function(x) x.Name = Name)
    50. End Function
    52. Friend Function GetByColor(Color As Color) As ColorPack
    53. Return SingleOrDefault(Function(x) x.Color = Color)
    54. End Function
    55. End Class
    57. Friend Class ColorPack
    58. Property Name As String
    59. Property Color As Color
    60. End Class


    ##########

    Hab die DrawItem-Sub noch verbessert, damit man keine Disposable-Objects drin hat, die man disposen müsste.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

Facebook
Telefonspende