MaxDropDownItems of Datagridview Not Working?

Good day

My MaxDropDownItems of a DataGridViewComboBoxColumn is not working.

See my code blow?
Private Sub SetupPorsionsGrid()
        Dim colPorsionDescription As System.Windows.Forms.DataGridViewTextBoxColumn
        Dim colPorsionToSelect As System.Windows.Forms.DataGridViewComboBoxColumn
 
        colPorsionDescription = New System.Windows.Forms.DataGridViewTextBoxColumn
        colPorsionToSelect = New System.Windows.Forms.DataGridViewComboBoxColumn
 
        colPorsionDescription.ReadOnly = True
        colPorsionDescription.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        colPorsionToSelect.CellTemplate.Style.Padding = New Padding(5, 11, 5, 11)
 
        colPorsionToSelect.Width = 120
        colPorsionToSelect.DropDownWidth = 80
        colPorsionToSelect.MaxDropDownItems = 3
        colPorsionToSelect.FlatStyle = FlatStyle.Flat
 
        lblSelectPorsionsCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
 
        With grdPorsions
            .DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            .BorderStyle = BorderStyle.Fixed3D
            .BackgroundColor = Color.OldLace
            .SelectionMode = DataGridViewSelectionMode.CellSelect
            .DefaultCellStyle.BackColor = Color.White
            .DefaultCellStyle.SelectionBackColor = Color.White
            .DefaultCellStyle.SelectionForeColor = Color.Black
            .MultiSelect = False
            .EditMode = DataGridViewEditMode.EditOnEnter
            .RowHeadersVisible = False
            .ColumnHeadersVisible = False
            .Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {colPorsionDescription, colPorsionToSelect})
            .ScrollBars = ScrollBars.None
 
            .Columns(0).Width = 272
            .Columns(1).Width = 120
            .AllowUserToAddRows = False
            .AllowUserToResizeColumns = False
            .AllowUserToResizeRows = False
            For iRowCount = 0 To 4
                .Rows.Add()
                .Rows(iRowCount).MinimumHeight = 47
            Next iRowCount
 
            .Rows(0).Cells(0).Value = "Item 1 : "
            .Rows(1).Cells(0).Value = "Item 2 : "
            .Rows(2).Cells(0).Value = "Item 3 : "
            .Rows(3).Cells(0).Value = "Item 4 : "
            .Rows(4).Cells(0).Value = "Item 5 : "
            Dim DropDownColumn As DataGridViewComboBoxColumn
            DropDownColumn = grdPorsions.Columns(1)
            For i = 0 To 200
                DropDownColumn.Items.Add(i & "")
                DropDownColumn.DisplayMember = i & ""
                DropDownColumn.ValueMember = i & ""
            Next
 
        End With
 
    End Sub

Open in new window

koossaAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

koossaAuthor Commented:
I don't see the solution on the above link?
0
koossaAuthor Commented:
Uncheck the "Enable application framework" in the project properties.

It seems like a visual style that's inherited from the operating system.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
koossaAuthor Commented:
The last comment is a solution that I have posted, so I don't think you must delete.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
.NET Programming

From novice to tech pro — start learning today.