宜宾网站建设公司

VB.NET中如何使用COMBOBOX控件

小编给大家分享一下VB.NET中如何使用COMBOBOX控件，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！

创新互联-专业网站定制、快速模板网站建设、高性价比望城网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式望城网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖望城地区。费用合理售后完善，10多年实体公司更值得信赖。

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 

以上是“VB.NET中如何使用COMBOBOX控件”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注创新互联行业资讯频道！


标题名称：VB.NET中如何使用COMBOBOX控件
URL分享：http://ybzwz.com/article/jjochs.html

其他资讯