Combobox Fore Color

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    Combobox Fore Color

    Hallo,
    Wie kann man in einer Combobox bestimmte Wörter Färben?
    Ich habe es schon mit einer Selection versucht und diese zu färben, aber das färben der Selection wird in der Combobox nicht unterstützt.

    VB.NET-Quellcode

    1. cmb_url.SelectionStart = 0
    2. cmb_url.SelectionLength = 8
    3. cmb_url.SelectionColor = Color.Green 'SelectionColor ist kein Member von...

    Gibt es da noch eine Möglichkeit?

    Offensichtlich kann eien ComboBox nur ForeColor und BackColor.
    Du kannst Dir natürlich ein solches Control selber schreiben, aber dazu fehlen Dir wohl noch ein paar Wochen Stunden Übung.
    Undf wenn Du es kannst, brauchst Du es nicht mehr. :S
    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!

    Hi, also das maximale (von dem ich weiß) und was man aus der Combobox rausholen kann ist folgendes:



    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class MyComboBox
    2. Inherits ComboBox
    5. Public Sub New()
    6. Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
    7. DoubleBuffered = True
    8. Me.DropDownStyle = ComboBoxStyle.DropDownList
    9. End Sub
    11. Private Sub Me_DrawItem(sender As Object, e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
    12. With e.Graphics
    14. .PixelOffsetMode = Drawing2D.PixelOffsetMode.Half
    15. .TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit
    17. Dim c As Integer = Items.Count
    18. If e.Index <> -1 Then
    20. Dim aktItem As Object = Items(e.Index)
    22. If aktItem IsNot Nothing Then
    24. 'Hintergrund/Selection
    25. .SetClip(e.Bounds)
    26. .Clear(BackColor)
    27. If isDrop Then
    28. e.DrawFocusRectangle()
    29. e.DrawBackground()
    30. Else
    31. ''Textbox "verändern"
    32. 'Dim brsh As New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(100, 50), Color.Gray, Color.WhiteSmoke)
    33. '.FillRectangle(brsh, e.Bounds)
    34. End If
    36. 'Das Item zeichnen
    37. If aktItem.GetType.GetInterfaces.Contains(GetType(IComboItem)) Then
    38. 'Wenn es ein iComboItem ist
    39. Dim tmp As IComboItem = DirectCast(aktItem, IComboItem)
    40. .DrawString(tmp.ToString, Font, New SolidBrush(tmp.Color), e.Bounds.Left, e.Bounds.Top)
    41. Else
    42. 'Wenn es kein iComboItem ist
    43. .DrawString(aktItem.ToString, Font, New SolidBrush(Me.ForeColor), e.Bounds.Left, e.Bounds.Top)
    44. End If
    47. End If
    49. End If
    51. End With
    52. End Sub
    54. Dim isDrop As Boolean = False
    55. Private Sub MyCombo_DropDown(sender As Object, e As System.EventArgs) Handles Me.DropDown
    56. isDrop = True
    57. End Sub
    58. Private Sub MyCombo_DropDownClosed(sender As Object, e As System.EventArgs) Handles Me.DropDownClosed
    59. isDrop = False
    60. Invalidate()
    61. End Sub
    62. Private Sub MyCombo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles Me.SelectedIndexChanged
    63. Invalidate()
    64. End Sub
    66. End Class
    67. Public Interface IComboItem
    68. Property Color As Color
    69. 'Property Font, etc
    70. End Interface


    Die Benutzung dürfte dir etwas kompliziert erscheinen, da du vllt noch nicht "richtig" mit Klassen gearbeitet hast - mit eigenen schon garnicht. Darum davon nur ein Screenshot und kein C&P Code. Eine Liste von Objekten die das IComboItem-Interface implementieren können in der umgebauten ComboBox in verschiedenen Farben dargestellt werden - soll heißen, du brauchst eine eigene Klasse die den Datensatz/Item repräsentiert.



    @ErfinderDesRades
    Wie du schon sagtest, kann man das Textfeld (also die ComboBox ohne das DropDownAnhängsel) nur schwer selbst zeichnen - bei mir wird es wie die Items gezeichnet. Umgehen kann man das nur bedingt: Die Variable isDrop gibt auskunft ob das DropDownDings angezeigt wird - anhand dieses Wissens könnte man die Items und damit die Textbox der Combobox gesondert zeichnen. Würde zb so aussehen:



    Der Pfeil ist eine ganz andere Baustelle - auf msdn gibts ein Beispiel dazu, einfach mal den comboboxrenderer anschauen 8| (kompliziert und hässlich sieht es aus)

    lg

Facebook
Telefonspende