Add ComboBox in DataGrid in VB 6.0

**Jateen** · 15-01-2009

Hello Friends,

I am developing new project by using VB 6.0.
I want that particular column of Datagrid control should contain a Combobox in it. so that user can select the value from given list.

But i am not able to do it.

Please help me.

**Praetor** · 15-01-2009

You can't put a combobox directly into the datagrid control.

I have made this kind of myself with mshflexgrid control.

With msHFlexGrid1
Combo1.Move .CellLeft, .CellTop, .CellWidth
End Sub

This doesn't look nice but it can be done without buying third party
controls.

**Katty** · 15-01-2009

Just follow the given steps:

Step1:

Place a combo box any where in the form and populate the values as you need. Set the visible property to false in design time itself.

Step2:

Now we can set the combo box on any cell of the selected column, let’s say on column 7.

The fallowing code shlould write in the row column change event of the data grid

Here cmbGridDisposition is the name of the requred combo box.

Code:

If rptGrid.Col = 7 Then

        cmbGridDisposition.Visible = True

        cmbGridDisposition.Top = rptGrid.Columns(7).Top

        rptGrid.RowHeight = cmbGridDisposition.Height

cmbGridDisposition.Top = rptGrid.Columns(7).Top + rptGrid.Top + rptGrid.RowTop(rptGrid.Row)

        cmbGridDisposition.Top = cmbGridDisposition.Top - 200

        cmbGridDisposition.Width = rptGrid.Columns(7).Width

       

        cmbGridDisposition.Left = rptGrid.Columns(7).Left + rptGrid.Left

       

        If Len(rptGrid.Columns(7).Text) > 0 Then

            cmbGridDisposition = rptGrid.Columns(7).Text

        End If

    Else

        cmbGridDisposition.Visible = False

    End If

This will work only if the cell value matched with the list of combo box values.

Step3:

To affect the selected value from the drop down over the grid cell. We should write code under the

Click event of the combo box.

Code:

    If cmbGridDisposition.Visible = True Then

        rptGrid.Columns(7).Text = cmbGridDisposition.Text

    End If

By running the code you can able to select value for a particular column from the drop down list.

**kelfro** · 15-01-2009

Hope this code will help you...

Code:

Private Sub datagrid1_Click() 

         ' Position and size the ComboBox, then show it. 
          Combo1.Top = DataGrid1.Columns(2).Top 
          Combo1.Width = DataGrid1.Columns(2).Width 
          Combo1.Left = DataGrid1.Columns(2).Left + DataGrid1.Left 
          Combo1.Top = DataGrid1.Columns(2).Top + DataGrid1.Top 
          Combo1.Text = DataGrid1.Columns(2).Text 
          Combo1.Visible = True 
End Sub 


Private Sub Combo1_Click() 
          ' Place the selected item into the columns(1). and hide the ComboBox. 
          DataGrid1.Columns(2).Text = Combo1.Text 
          Combo1.Visible = False 
End Sub