颜色下拉COMBOBOX控件(vb.net)
2007-03-28 21:52
597 查看
前不久,有位朋友发帖,寻求颜色选择的COMBOBOX 的制作方法,经过试验,整理了出来,仅供参考。
(注:如有引用,请注明出处和作者) --闵峰(东莞)
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
(注:如有引用,请注明出处和作者) --闵峰(东莞)
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
相关文章推荐
- 颜色下拉COMBOBOX控件(vb.net)
- VB.net中COMBOBOX控件下拉颜色的变化
- [VB.NET]comboBox控件下拉栏里添加多条数据
- VB.Net自己写的一个控件:ComboBox下拉列表中显示多列数据(可以绑定数据表)
- [VB.NET]GroupBox1里面的VScrollBar怎样下拉看到被遮住的控件?
- VB.NET DataGridViewComboBoxColumn控件赋值
- 用ComboBox控件实现颜色下拉框
- VB.NET控件之ComboBox
- [VB.NET]如何把Combobox的下拉列表显示成Checkbox?
- [VB.NET]请问有什么办法把一个自定义控件添加到comboBox的下拉框中去呢?
- 100% .NET Control_自动完成Combobox的XComBo控件(VB.NET)
- vb.net入门——ComboBox 控件的使用
- vb.net 教程 3-4 窗体编程 公共控件2 radiobutton & ComboBox
- [VB.NET]VB.net中如何直接把Combobox下拉项拖放到另一个Combobox
- 承载 ComboBox 控件的 DataGridColumnStyle (VB.NET)
- vb.net创建自定义颜色下拉列表
- vb.net 2005 用户控件怎样继承datagrid ?
- VB.NET中根据DataGridView中显示的数据条件数据行显示不同的颜色
- VB.NET为每一个控件创建气泡提示
- winform程序之comboBox控件下拉列表的应用(简单)