Imports System.Reflection
 
Public Class MetroComboBox
    Inherits ComboBox
    Dim headFont As Font = New Font("Microsoft Sans Serif", 12, _
      FontStyle.Regular)
    Dim Selectcolor As New SolidBrush(Color.WhiteSmoke)
    Dim forebrush As New SolidBrush(Color.White)
 
    Private Sub MetroComboBox_DrawItem(sender As Object, e As _
      DrawItemEventArgs) Handles Me.DrawItem
        If e.Index < 0 Then Exit Sub
 
        Dim slines() As String
        Dim startentry(Me.Items.Count - 1) As String
        For i As Integer = 0 To Me.Items.Count - 1
            slines = Me.Items(i).ToString.Split("/"c)
            startentry(i) = slines(0)
        Next i
 
        e.DrawBackground()
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            e.Graphics.FillRectangle(Selectcolor, e.Bounds)
        End If
        With e.Graphics
            Using forebrush As New SolidBrush(lblProgrammname.ForeColor)
                .DrawString(sLines(0), headFont, forebrush, e.Bounds.X , _
                  e.Bounds.Y)
            End Using
        End With 
        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:41:55 editiert.