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
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