文字列の長さに基づくComboBoxの書式設定

Question

ComboBoxの最長文字列の長さに基づいて、DataGridViewComboBoxColumnの長さを書式設定しようとしています。ここに私が現在持っているコードはありますが、コンボボックスの前の選択に基づいてDataGridViewComboBoxColumnの書式を設定するだけです。

DataGridViewComboBoxColumnをcomboBoxの最長文字列の長さにする方法はありますか？あなただけComboBoxで最も長い文字列を計算する必要があるよう

Private Sub comboTest_SelectionChangeCommitted(ByVal sender As Object, ByVal e As EventArgs) Handles comboTest.SelectionChangeCommitted 

    Dim senderComboBox As ComboBox = CType(sender, ComboBox) 

    'Change the length of the text box depending on what the user has 
    'selected and committed using the SelectionLength property. 
    If (comboTest.SelectionLength > 0) Then 
     comboTest.Width = comboTest.SelectionLength * CType(Me.comboTest.Font.SizeInPoints, Integer) 
     comboTest.SelectedValue = comboTest.SelectedText 
    End If 
End Sub 

Answer 1

それはそうです：

は、ここに私のコードです。値がStringのコレクションであると仮定すると、次のことができます。

Dim length = 0 
For Each item As String in comboTest.Items 
    length = Max(length, item.Length) 
Next 

If length > 0 Then 
    comboTest.Width = length * CType(Me.comboTest.Font.SizeInPoints, Integer) 
    comboTest.SelectedValue = comboTest.SelectedText 
End If 

Answer 2

Dim length = 0 
Dim maxlength = 0 
Dim i As Integer = 0 
Dim g As Graphics = ComboBox2.CreateGraphics 
Dim stringsize As New SizeF 

For i = 0 To ComboBox2.Items.Count - 1 
    ComboBox2.SelectedIndex = i 
    stringsize = g.MeasureString((ComboBox2.GetItemText(ComboBox2.Items(i))), ComboBox2.Font) 
    length = stringsize.Width 
    If length > maxlength Then 
     maxlength = length 
    End If 
Next i 

Me.ComboBox2.Width = maxlength