大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
小编给大家分享一下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控件的制作方法,经过试验,整理了出来,仅供参考。
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.DrawItemIf 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.Loadfilllistboxwithcolors()
End Sub
以上是“VB.NET中如何使用COMBOBOX控件”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!