Imports System.Reflection
 
Public Class MetroComboBox
    Inherits ComboBox
 
    Private Sub MetroComboBox_DrawItem(sender As Object, e As _
      DrawItemEventArgs) Handles Me.DrawItem
        If e.Index < 0 Then Exit Sub
        Dim sLines() As String = Me.Items(e.Index).ToString.Split("/"c)
        Dim headFont As Font = New Font("Microsoft Sans Serif", 12, _
          FontStyle.Regular)
        e.DrawBackground()
        Dim Selectcolor As New SolidBrush(Color.WhiteSmoke)
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            e.Graphics.FillRectangle(Selectcolor, e.Bounds)
        End If
        Dim forebrush As New SolidBrush(Color.White)
        e.Graphics.DrawString(sLines(0), headFont, forebrush, e.Bounds.X, _
          e.Bounds.Y)
        e.DrawFocusRectangle()
    End Sub
 
    Public Sub New()
        InitializeComponent()
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        Me.SetStyle(ControlStyles.UserPaint, False)
        UpdateStyles()
    End Sub
End Class

MFG Gizmo


Beitrag wurde zuletzt am 30.05.15 um 14:05:15 editiert.