浅析VB.NET实现下拉列表的折行显示

浅析VB.NET实现下拉列表的折行显示 学讯网 www.xuexun.com 教育平台 浅析VB.NET实现下拉列表的折行显示 教程贴士:VB.NET有很多值得学习的地方，这里我们主要介绍VB.NET实现下拉列表，包括介绍控件进行改进等方面 VB.NET有很多值得学习的地方，这里我们主要介绍VB.NET实现下拉列表，包括介绍控件进行改进等方面。 .NET是Microsoft公司提供解决未来计算需要的工具。在.NET Framework中提供了许多控件，可以解决编程中用户界面的设计和实现，但在实际应用中可能需要对系统提供的控件进行改进，如下拉列表不能折行显示。本文将介绍用VB.NET实现下拉列表折行显示。 设计能自动折行的下拉列表 VB.NET实现下拉列表，在ComboBox控件中每项占用一行，如果有选择项的内容长度超过下拉列表的宽度，则超过部分不显示，这样就可能造成用户所见的内容不完全而无法选择的情况。我们对该控件进行改进，当一行显示不完全某项时进行折行显示，为了防止用户将折行的项误认为是两个选择项，我们将不同的选项用相互间隔的颜色区分。类代码如下: 1.Public Class myComboBox 2.Inherits System.Windows.Forms.ComboBox 3. 4.#Region " Windows 窗体设计器生成的代码 " 5.… 6.#End Region 7.'下面代码用不同的颜色显示选项 8.Private Sub myComboBox_DrawItem(ByVal sender As Object, ByVal e As _ System.Windows.Forms.DrawItemEventArgs) Handles MyBase.DrawItem 9.If e.Index < 0 Then Exit Sub 学讯网 www.xuexun.com 培训教育平台 10.Dim txtColor As SolidBrush 11.Dim bgColor As SolidBrush 12.Dim txtfnt As Font 13.txtColor = New SolidBrush(Color.Black) 14.If e.Index / 2 = CInt(e.Index / 2) Then 15.bgColor = New SolidBrush(Color.White) 16.Else 17.bgColor = New SolidBrush(Color.LightYellow) 18.End If 19.If e.State And DrawItemState.Selected Then 20.txtColor = New SolidBrush(Color.Blue) 21.End If 22.e.Graphics.FillRectangle(bgColor, e.Bounds) 23.e.Graphics.DrawRectangle(Pens.Black, e.Bounds) 24.Dim r As New RectangleF(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Heig ht) 25.e.Graphics.DrawString(Items(e.Index).ToString, Me.Font, txtColor, r) 26.End Sub 27.'下面代码计算每行选项需要的尺寸 28.Private Sub myComboBox_MeasureItem(ByVal sender As Object, 学讯网 www.xuexun.com 培训教育平台 ByVal e As _ System.Windows.Forms.MeasureItemEventArgs) Handles MyBase.Measur eItem 29.Dim lsize As SizeF 30.lsize = e.Graphics.MeasureString(Items(e.Index).ToString, Me.Font, New SizeF(Me.W idth, 200)) 31.e.ItemHeight = lsize.Height 32.e.ItemWidth = lsize.Width 33.End Sub 34.End Class 以上介绍VB.NET实现下拉列表折行显示。 更多实用技巧请登录学讯网 观看