コンボボックスの項目の幅をリストの最長の項目に合わせて再利用できる機能

Question

私の目的は、ドロップダウンの幅を調整してドロップダウンに含まれるすべての項目が表示されるようにすることです）。私は複数のコンボボックスのために使うことができる関数を作成しようとしています。現在、これはLOAD CBO関数から呼び出されていますが、データがロードされた後は.dropDownWidthを調整していません。

Private Sub AdjustCombobox(ByVal comboboxName As ComboBox) 
    Dim maxwidth = 0 
    Dim temp = 0 

    For Each Item As Object In comboboxName.Items 
     temp = TextRenderer.MeasureText(Item.ToString(), comboboxName.Font).Width 
     If temp > maxwidth Then 
      maxwidth = temp 
     End If 
    Next 

    comboboxName.DropDownWidth = maxwidth 
End Sub 

EDIT：

 Dim da As New SqlDataAdapter(sql, objconnection) 
     Dim ds As New DataSet 

     da.Fill(ds, "Prov") 

     If ds.Tables("Prov").Rows.Count > 0 Then 
      With c 
       .DataSource = ds.Tables("Prov") 
       .ValueMember = "No" 
       .DisplayMember = "Name" 
       .SelectedIndex = -1 
      End With 
     End If 

Answer 1

まず

comboboxload機能、私は実際DataSource、ないアイテム使用します。方法が異なるコンボが異なるフォントを使用する場合は、メソッドにそれぞれを渡すなど内部側溝、パディング、マージンを考慮してVerticalScrollBarWidthとわずかなファッジファクターを占めていること

Private Function GetMaxDataSize(dt As DataTable, mem As String) As Int32 

    Dim longestItem = dt.AsEnumerable.Select(Function(q) q.Field(Of String)(mem)). 
       OrderBy(Function(z) z.Length). 
       Last() 

    ' assumes as the CBO's use the same Font 
    Dim longestSize = TextRenderer.MeasureText(longestItem, cboE.Font) 
    Return longestSize.Width + 
       SystemInformation.VerticalScrollBarWidth + 5 

End Function 

注：これは本当に短いソリューションを可能に同じように。使用法：ドロップダウンの幅が独立して