ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 浅析VB.NET实现下拉列表的折行显示

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

原创 Linux操作系统 作者:iDotNetSpace 时间:2009-10-15 14:50:08 0 删除 编辑

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  
  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.Height)  
  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, 
    ByVal e As _ System.Windows.Forms.MeasureItemEventArgs) Handles MyBase.MeasureItem  
  29. Dim lsize As SizeF  
  30. lsize = e.Graphics.MeasureString(Items(e.Index).ToString, Me.Font, New SizeF(Me.Width, 200))  
  31. e.ItemHeight = lsize.Height  
  32. e.ItemWidth = lsize.Width  
  33. End Sub  
  34. End Class 

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

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/12639172/viewspace-616645/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2008-01-04

  • 博文量
    2376
  • 访问量
    5303777