|
前不久，有位朋友发帖，寻求颜色选择的COMBOBOX 的制作方法，经过试验，整理了出来，仅供参考。 （注：如有引用，请注明出处和作者） --闵峰（2005/08/06东莞） Private Sub filllistboxwithcolors()
Me.ComboBox1.DrawMode = DrawMode.OwnerDrawFixed
Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Me.ComboBox1.ItemHeight = 15
''''避免闪烁beginupdate
Me.ComboBox1.BeginUpdate()
ComboBox1.Items.Clear()
Dim pi As Reflection.PropertyInfo
For Each pi In GetType(Color).GetProperties(Reflection.BindingFlags.Public Or Reflection.BindingFlags.Static)
Me.ComboBox1.Items.Add(pi.Name)
Next
ComboBox1.EndUpdate() End Sub Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
If e.Index < 0 Then Exit Sub
Dim rect As Rectangle = e.Bounds ''''每一项的边框
''''绘制项如果被选中则显示高亮显示背景,否则用白色
If e.State And DrawItemState.Selected Then
e.Graphics.FillRectangle(SystemBrushes.Highlight, rect)
Else
e.Graphics.FillRectangle(SystemBrushes.Window, rect)
End If Dim colorname As String = ComboBox1.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.ComboBox1.Font, b2, rect.X, rect.Y) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
filllistboxwithcolors()
End Sub 
[C语言系列]C# 线程调用主线程中的控件 [C语言系列]NET 中C#的switch语句的语法
[C语言系列]c#使用webbrowser控件触发按钮点击事件 [办公软件]如何在PowerPoint中使用(插入)Media Player控件播…
[Web开发]动态添加控件、设置控件属性并获得控件属性值 [Web开发]设置GridView控件表头背景图片（前台设置）
[Web开发]设置GridView控件表头背景图片 [Web开发]word文档(带控件)转成htm文件源代码示例－2
[Web开发]word文档(带控件)转成htm文件源代码示例－1 [Web开发]长篇大论—图文解说DridView、DataList、DetailsV…
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
