带颜色的listbox控件-asp.net教程
转载自：互联网 作者：cd3c.com
您正在看的asp.net教程是:带颜色的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)
&
[1] [2] 下一篇
