讲解VB.NET COMBOBOX控件

开发 后端
这里介绍VB.NET COMBOBOX控件,包括介绍Visual Basic.NET是基于微软。大多的VB.Net程序员使用Visual Studio .Net作为IDE。SharpDevelop是另一种可用的开源的IDE。
学习Visual Basic.NET时,你可能会遇到VB.NET COMBOBOX控件问题,这里将介绍VB.NET COMBOBOX控件问题的解决方法,在这里拿出来和大家分享一下。

Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言,可以看作是Visual Basic在.Net Framework平台上的升级版本,增强了对面向对象的支持。但由于改动太大,导致VB.net对VB的向后兼容性不好,在业界引起不小的争议。

大多的VB.NET程序员使用Visual Studio .Net作为IDE(integrated development environment). SharpDevelop是另一种可用的开源的IDE。VB.NET需要在.Net Framework平台上才能执行。

前不久,有位朋友发帖,寻求颜色选择的VB.NET COMBOBOX控件的制作方法,经过试验,整理了出来,仅供参考。

  1. Private Sub filllistboxwithcolors()  
  2. Me.ComboBox1.DrawMode = DrawMode.OwnerDrawFixed  
  3. Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList  
  4. Me.ComboBox1.ItemHeight = 15 
  5. '避免闪烁beginupdate  
  6. Me.ComboBox1.BeginUpdate()  
  7. ComboBox1.Items.Clear()  
  8. Dim pi As Reflection.PropertyInfo  
  9. For Each pi In GetType(Color).GetProperties(Reflection.BindingFlags.
    Public Or Reflection.BindingFlags.Static)  
  10. Me.ComboBox1.Items.Add(pi.Name)  
  11. Next  
  12. ComboBox1.EndUpdate()  
  13. End Sub  
  14.  
  15. Private Sub ComboBox1_DrawItem(ByVal sender As Object, 
    ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem  
  16. If e.Index < 0 Then Exit Sub  
  17.  
  18. Dim rect As Rectangle = e.Bounds '每一项的边框  
  19.  
  20. '绘制项如果被选中则显示高亮显示背景,否则用白色  
  21. If e.State And DrawItemState.Selected Then  
  22. e.Graphics.FillRectangle(SystemBrushes.Highlight, rect)  
  23. Else  
  24. e.Graphics.FillRectangle(SystemBrushes.Window, rect)  
  25. End If  
  26.  
  27. Dim colorname As String = ComboBox1.Items(e.Index)  
  28. Dim b As New SolidBrush(Color.FromName(colorname))  
  29.  
  30. '缩小选定项区域()  
  31. rect.Inflate(-16, -2)  
  32. '填充颜色(文字对应的颜色)  
  33. e.Graphics.FillRectangle(b, rect)  
  34. '绘制边框()  
  35. e.Graphics.DrawRectangle(Pens.Black, rect)  
  36. Dim b2 As Brush  
  37. '确定显示的文字的颜色()  
  38. If CInt(b.Color.R) + CInt(b.Color.G) + CInt(b.Color.B) > 128 * 3 Then  
  39. b2 = Brushes.Black  
  40. Else  
  41. b2 = Brushes.White  
  42.  
  43. End If  
  44. e.Graphics.DrawString(colorname, Me.ComboBox1.Font, b2, rect.X, rect.Y)  
  45.  
  46. End Sub  
  47.  
  48. Private Sub Form1_Load
    (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  49. filllistboxwithcolors()  
  50. End Sub 

【编辑推荐】

  1. 描述VB.NET EIF体系
  2. 简单讲述VB.NET多重继承
  3. 浅谈VB.NET语言与.NET开发语言关系
  4. 讲解VB.NET语言学习经验
  5. 浅析VB.NET语言到底带来了什么
责任编辑:佚名 来源: Sogou
相关推荐

2009-10-14 17:21:47

VB.NET定制Win

2009-10-23 13:10:14

VB.NET List

2010-01-11 16:04:10

VB.NET使用wit

2009-10-23 13:14:38

2010-01-13 10:53:24

VB.NET控件

2009-10-14 10:19:57

VB.NET Doma

2009-10-14 16:04:43

VB.NET Noti

2009-10-12 13:54:22

VB.NET Data

2009-10-15 11:42:05

VB.Net赋值语句

2009-10-10 16:44:52

VB.NET开发控件

2009-10-29 10:45:01

VB.NET设置控件

2009-10-27 18:06:41

VB.NET开发控件

2009-10-14 11:15:06

VB.NET Grou

2009-10-13 15:09:19

VB.NET使用Tre

2009-10-16 13:19:04

VB.NET Data

2009-10-16 14:07:18

VB.NET使用Mon

2010-01-18 18:20:49

VB.NET使用API

2009-10-13 14:42:30

VB.NET静态成员

2009-10-14 11:27:20

VB.NET Grou

2009-10-16 14:31:48

VB.NET Noti
点赞
收藏

51CTO技术栈公众号