温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

VB.NET中怎么实现下拉列表折行显示

发布时间:2021-07-20 11:28:08 来源:亿速云 阅读:150 作者:Leah 栏目:编程语言

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中怎么实现下拉列表折行显示问题的解答就分享到这里了,希望以上内容可以对大家有一定的帮助,如果你还有很多疑惑没有解开,可以关注亿速云行业资讯频道了解更多相关知识。

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI