VB.NET有很多值得學(xué)習(xí)的地方，這里我們主要介紹VB.NET實現(xiàn)下拉列表，包括介紹控件進(jìn)行改進(jìn)等方面。

　　.NET是Microsoft公司提供解決未來計算需要的工具。在.NET Framework中提供了許多控件，可以解決編程中用戶界面的設(shè)計和實現(xiàn)，但在實際應(yīng)用中可能需要對系統(tǒng)提供的控件進(jìn)行改進(jìn)，如下拉列表不能折行顯示。本文將介紹用VB.NET實現(xiàn)下拉列表折行顯示。

　　設(shè)計能自動折行的下拉列表

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

　　1.Public Class myComboBox

　　2.Inherits System.Windows.Forms.ComboBox

　　3.

　　4.#Region " Windows 窗體設(shè)計器生成的代碼 "

　　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實現(xiàn)下拉列表折行顯示。