带颜色的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