Combobox mit Fonts - OnDraw wenn item ausgewählt ist

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Combobox mit Fonts - OnDraw wenn item ausgewählt ist

    Hallo,

    Ich habe im Internet den Code für eine Combobox mit Fonts gefunden und diesen in ein Usercontrol abgeändert. Alles funktioniert super, nur wenn ein Element ausgewählt wurde wird nicht nur die Schriftart, sondern auch die Größe angezeigt.
    Jetzt suche ich nach einem OnDraw element für das Ausgewählte Objekt. Habt ihr einen Tipp für mich?



    VB.NET-Quellcode

    1. Public Class ATFontPicker
    2. Inherits System.Windows.Forms.ComboBox
    4. Public Sub New()
    5. Me.DrawMode = DrawMode.OwnerDrawFixed
    6. Me.Font = New Font("Microsoft Sans Serif, 11.25pt", 11.25)
    7. Me.ItemHeight = 20
    8. initFonts()
    9. End Sub
    11. Private Sub initFonts()
    13. Dim objFontFamily As FontFamily
    14. Dim objFontCollection As System.Drawing.Text.FontCollection
    15. Dim tempFont As Font
    16. objFontCollection = New System.Drawing.Text.InstalledFontCollection()
    17. For Each objFontFamily In objFontCollection.Families
    18. If objFontFamily.IsStyleAvailable(FontStyle.Regular) Then
    19. tempFont = New Font(objFontFamily, 14, FontStyle.Regular)
    20. ElseIf objFontFamily.IsStyleAvailable(FontStyle.Bold) Then
    21. tempFont = New Font(objFontFamily, 14, FontStyle.Bold)
    22. ElseIf objFontFamily.IsStyleAvailable(FontStyle.Italic) Then
    23. tempFont = New Font(objFontFamily, 14, FontStyle.Italic)
    24. Else
    25. tempFont = Nothing
    26. End If
    27. Dim lst As New ListViewItem
    28. lst.Font = tempFont
    29. lst.Text = tempFont.Name
    30. Me.Items.Add(tempFont)
    31. Next
    32. End Sub
    34. Protected Overrides Sub OnDrawItem(e As DrawItemEventArgs)
    36. e.DrawBackground()
    37. If (e.State And DrawItemState.Focus) <> 0 Then
    38. e.DrawFocusRectangle()
    39. End If
    40. Dim objBrush As Brush = Nothing
    42. Try
    43. objBrush = New SolidBrush(e.ForeColor)
    44. 'objBrush = New SolidBrush(System.Drawing.Color.Cyan)
    45. Dim ofont As Font = DirectCast(Me.Items(e.Index), Font)
    47. e.Graphics.DrawString(ofont.Name, ofont, objBrush, e.Bounds)
    49. Finally
    51. If objBrush IsNot Nothing Then
    52. objBrush.Dispose()
    53. End If
    54. objBrush = Nothing
    55. End Try
    57. MyBase.OnDrawItem(e)
    59. End Sub
    61. End Class






    Schon Danke im Voraus!