讲解VB.NET COMBOBOX控件

学习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控件的制作方法，经过试验，整理了出来，仅供参考。

 
 
   
  
  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

【编辑推荐】

描述VB.NET EIF体系
简单讲述VB.NET多重继承
浅谈VB.NET语言与.NET开发语言关系
讲解VB.NET语言学习经验
浅析VB.NET语言到底带来了什么

本文题目：讲解VB.NET COMBOBOX控件
网页路径：http://www.shufengxianlan.com/qtweb/news5/161355.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容