FontComboBox

    • VB.NET

    Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

      FontComboBox

      Hi
      Hier gibts mal nen Code für die beliebte FontComboBox:

      VB.NET-Quellcode

      1. Imports System.Windows.Forms
      2. Imports System.ComponentModel
      4. Public Class FontComboBox : Inherits ComboBox
      6. Private Sub FontComboBox_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
      7. Dim itm As Object = Me.Items(e.Index)
      8. Select Case e.State
      9. 'Wenn das Item Angewählt ist
      10. Case DrawItemState.Selected
      11. 'wird ein blauer Hintergrund gezeichnet
      12. e.Graphics.FillRectangle(Brushes.MidnightBlue, e.Bounds)
      13. If TypeOf itm Is FontFamily Then
      14. Try
      15. e.Graphics.DrawString(CType(itm, FontFamily).Name, New Font(CType(itm, FontFamily), 10), Brushes.White, e.Bounds.Location)
      16. Catch ex As Exception
      17. 'Kein Format vorhanden oder anderer Fehler
      18. e.Graphics.DrawString(CType(itm, FontFamily).Name, New Font("Arial", 9), Brushes.White, e.Bounds.Location)
      19. End Try
      20. ElseIf TypeOf itm Is Font Then
      21. e.Graphics.DrawString(CType(itm, Font).Name, itm, Brushes.White, e.Bounds.Location)
      22. Else
      23. e.Graphics.DrawString(itm.ToString, New Font("Arial", 9), Brushes.White, e.Bounds.Location)
      24. End If
      25. Case Else
      26. e.Graphics.FillRectangle(Brushes.White, e.Bounds)
      27. If TypeOf itm Is FontFamily Then
      28. Try
      29. e.Graphics.DrawString(CType(itm, FontFamily).Name, New Font(CType(itm, FontFamily), 10), Brushes.Black, e.Bounds.Location)
      30. Catch ex As Exception
      31. 'Kein Format vorhanden oder anderer Fehler
      32. e.Graphics.DrawString(CType(itm, FontFamily).Name, New Font("Arial", 9), Brushes.Black, e.Bounds.Location)
      33. End Try
      34. ElseIf TypeOf itm Is Font Then
      35. e.Graphics.DrawString(CType(itm, Font).Name, itm, Brushes.Black, e.Bounds.Location)
      36. Else
      37. e.Graphics.DrawString(itm.ToString, New Font("Arial", 9), Brushes.Black, e.Bounds.Location)
      38. End If
      39. End Select
      40. End Sub
      42. Private Sub FontComboBox_Format(ByVal sender As Object, ByVal e As System.Windows.Forms.ListControlConvertEventArgs) Handles Me.Format
      43. If TypeOf e.ListItem Is FontFamily Then
      44. 'Wenn das gewählte Item eine Font Family ist, soll der Name von ihr dargestellt werden.
      45. e.Value = CType(e.ListItem, FontFamily).Name
      46. End If
      47. End Sub
      49. 'Ausgeblender Modus
      50. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
      51. Public Shadows Property DrawMode() As DrawMode
      52. Get
      53. Return MyBase.DrawMode
      54. End Get
      55. Set(ByVal value As DrawMode)
      56. MyBase.DrawMode = value
      57. End Set
      58. End Property
      60. ''' <summary>
      61. ''' Gibt an, ob die Schriftarten formattiert dargestellt werden sollen.
      62. ''' </summary>
      63. Public Property EnableFontFormatting() As Boolean
      64. Get
      65. Return MyBase.DrawMode = Windows.Forms.DrawMode.OwnerDrawVariable
      66. End Get
      67. Set(ByVal value As Boolean)
      68. If value = True Then
      69. MyBase.DrawMode = Windows.Forms.DrawMode.OwnerDrawVariable
      70. Else
      71. MyBase.DrawMode = Windows.Forms.DrawMode.Normal
      72. End If
      73. End Set
      74. End Property
      76. Public Sub New()
      77. '"Eigenhändiges" Zeichnen der Items aktivieren
      78. MyBase.DrawMode = Windows.Forms.DrawMode.OwnerDrawVariable
      79. End Sub
      80. End Class



      Ganz einfach zu bedienen:

      VB.NET-Quellcode

      1. Public Sub AddFonts()
      2. FontComboBox1.Items.AddRange(FontFamily.Families)
      3. End Sub


      Gruß
      ~blaze~

    • Benutzer online 1

      1 Besucher

    • 2 Benutzer haben hier geschrieben