VB.NET中怎么實(shí)現(xiàn)下拉列表折行顯示，針對(duì)這個(gè)問(wèn)題，這篇文章詳細(xì)介紹了相對(duì)應(yīng)的分析和解答，希望可以幫助更多想解決這個(gè)問(wèn)題的小伙伴找到更簡(jiǎn)單易行的方法。

創(chuàng)新互聯(lián)是一家專業(yè)的成都網(wǎng)站建設(shè)公司，我們專注成都網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、網(wǎng)絡(luò)營(yíng)銷、企業(yè)網(wǎng)站建設(shè)，外鏈，廣告投放平臺(tái)為企業(yè)客戶提供一站式建站解決方案，能帶給客戶新的互聯(lián)網(wǎng)理念。從網(wǎng)站結(jié)構(gòu)的規(guī)劃UI設(shè)計(jì)到用戶體驗(yàn)提高，創(chuàng)新互聯(lián)力求做到盡善盡美。

設(shè)計(jì)能自動(dòng)折行的下拉列表

VB.NET實(shí)現(xiàn)下拉列表，在ComboBox控件中每項(xiàng)占用一行，如果有選擇項(xiàng)的內(nèi)容長(zhǎng)度超過(guò)下拉列表的寬度，則超過(guò)部分不顯示，這樣就可能造成用戶所見(jiàn)的內(nèi)容不完全而無(wú)法選擇的情況。我們對(duì)該控件進(jìn)行改進(jìn)，當(dāng)一行顯示不完全某項(xiàng)時(shí)進(jìn)行折行顯示，為了防止用戶將折行的項(xiàng)誤認(rèn)為是兩個(gè)選擇項(xiàng)，我們將不同的選項(xiàng)用相互間隔的顏色區(qū)分。類代碼如下:

Public Class myComboBox  
Inherits System.Windows.Forms.ComboBox  
 
#Region " Windows 窗體設(shè)計(jì)器生成的代碼 "  
…  
#End Region  
'下面代碼用不同的顏色顯示選項(xiàng)  
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  
'下面代碼計(jì)算每行選項(xiàng)需要的尺寸  
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 

關(guān)于VB.NET中怎么實(shí)現(xiàn)下拉列表折行顯示問(wèn)題的解答就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，如果你還有很多疑惑沒(méi)有解開(kāi)，可以關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道了解更多相關(guān)知識(shí)。