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

VB.NET有很多值得学习的地方，这里我们主要介绍VB.NET实现下拉列表，包括介绍控件进行改进等方面。

.NET是Microsoft公司提供解决未来计算需要的工具。在.NET Framework中提供了许多控件，可以解决编程中用户界面的设计和实现，但在实际应用中可能需要对系统提供的控件进行改进，如下拉列表不能折行显示。本文将介绍用VB.NET实现下拉列表折行显示。

设计能自动折行的下拉列表

VB.NET实现下拉列表，在ComboBox控件中每项占用一行，如果有选择项的内容长度超过下拉列表的宽度，则超过部分不显示，这样就可能造成用户所见的内容不完全而无法选择的情况。我们对该控件进行改进，当一行显示不完全某项时进行折行显示，为了防止用户将折行的项误认为是两个选择项，我们将不同的选项用相互间隔的颜色区分。类代码如下:

 
 
 
  
  
  Public Class myComboBox  
  
  
  Inherits System.Windows.Forms.ComboBox  
  
  
   
  
  
  #Region " Windows 窗体设计器生成的代码 "  
  
  
  …  
  
  
  #End Region  
  
  
  '下面代码用不同的颜色显示选项  
  
  
  Private Sub myComboBox_DrawItem(ByVal sender As Object, 
ByVal e As _ System.Windows.Forms.DrawItemEventArgs) Handles MyBase.DrawItem  
  
  
  If e.Index < 0 Then Exit Sub  
  
  
  Dim txtColor As SolidBrush  
  
  
  Dim bgColor As SolidBrush  
  
  
  Dim txtfnt As Font  
  
  
  txtColor = New SolidBrush(Color.Black)  
  
  
  If e.Index / 2 = CInt(e.Index / 2) Then  
  
  
  bgColor = New SolidBrush(Color.White)  
  
  
  Else  
  
  
  bgColor = New SolidBrush(Color.LightYellow)  
  
  
  End If  
  
  
  If e.State And DrawItemState.Selected Then  
  
  
  txtColor = New SolidBrush(Color.Blue)  
  
  
  End If  
  
  
  e.Graphics.FillRectangle(bgColor, e.Bounds)  
  
  
  e.Graphics.DrawRectangle(Pens.Black, e.Bounds)  
  
  
  Dim r As New RectangleF(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height)  
  
  
  e.Graphics.DrawString(Items(e.Index).ToString, Me.Font, txtColor, r)  
  
  
  End Sub  
  
  
  '下面代码计算每行选项需要的尺寸  
  
  
  Private Sub myComboBox_MeasureItem(ByVal sender As Object, 
ByVal e As _ System.Windows.Forms.MeasureItemEventArgs) Handles MyBase.MeasureItem  
  
  
  Dim lsize As SizeF  
  
  
  lsize = e.Graphics.MeasureString(Items(e.Index).ToString, Me.Font, New SizeF(Me.Width, 200))  
  
  
  e.ItemHeight = lsize.Height  
  
  
  e.ItemWidth = lsize.Width  
  
  
  End Sub  
  
  
  End Class

以上介绍VB.NET实现下拉列表折行显示。

【编辑推荐】

讲解VB.NET定制Windows控件
全面描述VB.NET字节数组
概括VB.NET窗体编程模式
浅谈VB6.0实现多窗体交互
详解VB6.0和VB.NET窗体的区别

网站题目：浅析VB.NET实现下拉列表的折行显示
路径分享：http://www.shufengxianlan.com/qtweb/news7/312407.html

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

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

猜你还喜欢下面的内容