带颜色的listbox控件

  Private Sub filllistboxwithcolors()

        Me.ListBox1.DrawMode = DrawMode.OwnerDrawFixed

        Me.ListBox1.ItemHeight = 24

        '避免闪烁

        Me.ListBox1.BeginUpdate()

        ListBox1.Items.Clear()

        Dim pi As Reflection.PropertyInfo

        For Each pi In GetType(Color).GetProperties(Reflection.BindingFlags.Public Or Reflection.BindingFlags.Static)

            Me.ListBox1.Items.Add(pi.Name)

        Next

        ListBox1.EndUpdate()

 

    End Sub

 

    Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem

        Dim rect As Rectangle = e.Bounds '每一项的边框

        If e.State And DrawItemState.Selected Then

            e.Graphics.FillRectangle(SystemBrushes.Window, rect)

 

        End If

        Dim colorname As String = ListBox1.Items(e.Index)

        Dim b As New SolidBrush(Color.FromName(colorname))

        rect.Inflate(-16, -2)

        e.Graphics.FillRectangle(b, rect)

        e.Graphics.DrawRectangle(Pens.Black, rect)

        Dim b2 As Brush

        If CInt(b.Color.R) + CInt(b.Color.G) + CInt(b.Color.B) > 128 * 3 Then

            b2 = Brushes.Black

        Else

            b2 = Brushes.White

 

        End If

        e.Graphics.DrawString(colorname, Me.ListBox1.Font, b2, rect.X, rect.Y)

    End Sub