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 

【编辑推荐】

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