Go Back   TechArena Community > Software > Software Development
Become a Member!
Forgot your username/password?
Tags Active Topics RSS Search Mark Forums Read

Reply
 
Thread Tools Search this Thread
  #1  
Old 15-01-2009
Member
 
Join Date: Dec 2008
Posts: 13
Add ComboBox in DataGrid in VB 6.0

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.
Reply With Quote
  #2  
Old 15-01-2009
Member
 
Join Date: Apr 2008
Posts: 1,948
Re: Add ComboBox in DataGrid in VB 6.0

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.
Reply With Quote
  #3  
Old 15-01-2009
Member
 
Join Date: May 2008
Posts: 2,008
Re: Add ComboBox in DataGrid in VB 6.0

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.
Reply With Quote
  #4  
Old 15-01-2009
Member
 
Join Date: Apr 2008
Posts: 2,001
Re: Add ComboBox in DataGrid in VB 6.0

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
Reply With Quote
Reply

  TechArena Community > Software > Software Development
Tags: , ,



Thread Tools Search this Thread
Search this Thread:

Advanced Search


Similar Threads for: "Add ComboBox in DataGrid in VB 6.0"
Thread Thread Starter Forum Replies Last Post
Need Help With ComboBox Reyas Software Development 1 29-04-2012 12:53 PM
Use of combobox in script Martien Software Development 3 15-01-2010 11:58 AM
Combobox and Text value HarshaB Software Development 5 09-11-2009 07:16 PM
How to lock combobox JamesB Software Development 3 19-03-2009 07:20 PM
How to add file content to combobox MikeY007 Software Development 3 11-10-2008 03:58 PM


All times are GMT +5.5. The time now is 12:50 AM.