vb.net创建自定义颜色下拉列表

   Private Sub LB_DtColorsFilter_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs) Handles LB_DtColorsFilter.DrawItem         If LB_DtColorsFilter.Items.Count = 0 Then Exit Sub         e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(DtColorsFilter.Rows.Item(e.Index)(1))), e.Bounds)         '字体格式         Dim sf As New StringFormat With {             .Alignment = StringAlignment.Far,             .LineAlignment = StringAlignment.Center         }         Dim textBrush As SolidBrush = New SolidBrush(Color.FromArgb(DtColorsFilter.Rows.Item(e.Index)(6)))         '文字         e.Graphics.DrawString(DtColorsFilter.Rows.Item(e.Index)(0), Me.Font, textBrush, e.Bounds, sf)         If LB_DtColorsFilter.SelectedIndex = e.Index Then             Dim rect As Rectangle = New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width - 1, e.Bounds.Height - 1)             e.Graphics.DrawRectangle(New Pen(textBrush), rect)             sf.Alignment = StringAlignment.Near             e.Graphics.DrawString(">", Me.Font, textBrush, rect, sf)             PB_MaterialFactory.BackgroundImage = DtColorsFilter.Rows.Item(e.Index)(4)         End If     End Sub    Private Sub LB_DtColorsFilter_DrawItem(ByVal