Combobo DropDown Autosize based on item length.

[BrailleSchool]

Hi, all.

I am using a SQLDataReader to insert items into a Combobox from two different columns in the same table. Account Number and Account Name. There are four spaces between the Account Number and Account Name. The Account Number is a length of 9 characters and the max length of the Account Name is 50.

I have attempted to make sure the DropDown of the ComboBox auto sizes based on the longest item in the ComboBox, but I get no errors and it is not autosizing based on the longest item.

So, in short, the maximum characters for the items would be 63 characters.

This is what I have so far.

    Private Sub Combobox_DropDown(ByVal sender As Object, _
                                  ByVal e As System.EventArgs) Handles SubAccountOfAssets.DropDown, _
                                                                       SubAccountOfEquity.DropDown, _
                                                                       SubAccountOfExpense.DropDown, _
                                                                       SubAccountOfIncome.DropDown, _
                                                                       SubAccountOfLiability.DropDown

        AutoSizeComboboxDropDown(sender)
    End Sub

   Public Sub AutoSizeComboboxDropDown(ByVal CBName As Control)
        Try
            With CType(CBName, ComboBox)
                Dim Gfx As Graphics = .CreateGraphics
                Dim TheFont As Font = .Font
                Dim TheWidth As Integer = .DropDownWidth
                Dim ScrollBarWidth As Integer = IIf((.Items.Count > .MaxDropDownItems), SystemInformation.VerticalScrollBarWidth, 0)
                Dim TheItem As String

                For Each TheItem In .Items
                    Dim TheNewWidth As Integer = CInt(Gfx.MeasureString(TheItem, TheFont).Width) + ScrollBarWidth

                    If TheWidth < TheNewWidth Then
                        TheWidth = TheNewWidth
                    End If
                Next TheItem

                .DropDownWidth = TheWidth
            End With
        Catch CastEx As InvalidCastException
            MessageBox.Show(CastEx.ToString(), _
                            "Invalid Cast Exception", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error, _
                            MessageBoxDefaultButton.Button1)

        End Try
    End Sub

Any suggestions or ideas as to why the DropDown for the ComboBox is not autosizing itself?

[kebo]

I cut and pasted your code with these items in the comboBox.items collection

kjhgkjhiuhyyiyghuiygluyhgukvkyvcycjtucxutrdxrdxrtdxrxkjhihui8ughi87ygh86tr54 v yrd trydrtdxtrsdxtrsxtesreaszresa
adscsad
sdvcs
sfv
ewfvewrvgewrvgwer

Here is my result...


It that not what you get?
kevin

[BrailleSchool]

I cut and pasted your code with these items in the comboBox.items collection


Here is my result...


It that not what you get?
kevin

Nope. The longest item is cut off. It is not resizing the width to fit the longest item.
The items in the ComboBox are added from an SQLDataReader, which shouldn't matter at all.
I am sure I am missing something simple.

[BrailleSchool]

This is what I am getting in my testing.