Vb.net 多列组合框更改宽度

我有一个包含三列的vb.net组合框。 我怎样才能使e边界更宽？我想设置组合框的下拉列表 比实际的组合框宽

我使用了以下代码：

   Private Sub BlokKiesCMB_DrawItem(ByVal sender As 
   System.Object, ByVal e As
   System.Windows.Forms.DrawItemEventArgs) 
   Handles BlokKiesCMB.DrawItem
    ' Draw the default background
    e.DrawBackground()

    ' The ComboBox is bound to a DataTable,
    ' so the items are DataRowView objects.
    Dim drv As DataRowView = CType(BlokKiesCMB.Items(e.Index), DataRowView)


    ' Retrieve the value of each column.
    Dim blokno As String = drv("blokno").ToString()
    Dim kultivar As String = drv("kultivar").ToString()
    Dim klas As String = drv("klas").ToString()

    ' Get the bounds for the first column

    Dim r1 As Rectangle = e.Bounds
    r1.Width = r1.Width / 3

    ' Draw the text on the first column
    Using sb As SolidBrush = New SolidBrush(e.ForeColor)
        e.Graphics.DrawString(blokno, e.Font, sb, r1)
    End Using

    ' Draw a line to isolate the columns 
    Using p As Pen = New Pen(Color.Black)
        e.Graphics.DrawLine(p, r1.Right, 0, r1.Right, r1.Bottom)
    End Using

    ' Get the bounds for the second column
    Dim r2 As Rectangle = e.Bounds
    r2.X = e.Bounds.Width / 3
    r2.Width = r2.Width / 3

    ' Draw the text on the second column
    Using sb As SolidBrush = New SolidBrush(e.ForeColor)
        e.Graphics.DrawString(kultivar, e.Font, sb, r2)
    End Using

    ' Draw a line to isolate the columns 
    Using p As Pen = New Pen(Color.Black)
        e.Graphics.DrawLine(p, r2.Right, 0, r2.Right, r2.Bottom)
    End Using



    ' Get the bounds for the third column
    Dim r3 As Rectangle = e.Bounds
    r3.X = r2.Width + r2.X
    r3.Width = r3.Width / 3



    ' Draw the text on the third column
    Using sb As SolidBrush = New SolidBrush(e.ForeColor)
        e.Graphics.DrawString(klas, e.Font, sb, r3)
    End Using


End Sub

---

e.Bounds

不提供

组合框

或其

下拉框

的侧面<代码>边界指的是组合框相对于其父项的位置。请阅读以供进一步参考

现在，

WinForms

ComboBox

有一个名为

DropDownWidth

的属性，它允许您控制

下拉列表的宽度，使其比实际的
ComboBox
的宽度宽。默认情况下，此属性设置为与组合框的宽度相同的值

下面是一个实际示例，
组合框的大小为121，默认情况下，其
下拉框的大小也将为121


但是如果您将
下拉宽度更改为200）

这就是你要得到的


组合框
下拉框变宽了。
嗨，伊恩。效果很好。非常感谢，伊恩。我将来会这样做。当做
Me.ComboBox1.DropDownWidth = 200 'change this