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