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

补充：Web开发 , ASP.Net ,

上一个：可拖动的无标题栏窗体
下一个：按钮列的应用