Hello there
Can someone tell med how to link a combo box to cell in a datagrid. (Datagrid.Columns.Add(4).Button = True)
Best regards
Pet:confused:
Printable View
Hello there
Can someone tell med how to link a combo box to cell in a datagrid. (Datagrid.Columns.Add(4).Button = True)
Best regards
Pet:confused:
You mention button, the combobox...:confused:
Anyways, this uses a FlexGrid not DataGrid, but the theory's about the same...
VB Code:
'cboCell is the name of the combo box and msfCarlines is the name of the MSFlexGrid 'Put SetUpCombo In the Grids Click Event Dim i As Integer ' Prepare combo With cboCell ' Hide combo .Visible = False .AddItem "line 1" .AddItem "line 2" .AddItem "line 3" End With ' Prepare grid With msfCarlines .Top = 0 .Width = Me.Width .Height = Me.Height .Left = 0 For i = 0 To msfCarlines.Cols - 1 .RowHeight(i) = cboCell.Height Next i End With Private Sub SetupCombo() ' Setup the combobox by positioning and sizing it over the ' current flexgrid cell Dim sngL As Single Dim sngT As Single Dim sngW As Single Dim sngH As Single With msfCarlines.Container sngL = .ScaleX(msfCarlines.CellLeft, vbTwips, .ScaleMode) sngT = .ScaleY(msfCarlines.CellTop, vbTwips, .ScaleMode) sngW = .ScaleX(msfCarlines.CellWidth, vbTwips, .ScaleMode) sngH = .ScaleY(msfCarlines.CellHeight, vbTwips, .ScaleMode) End With With cboCell .Move msfCarlines.Left + sngL, msfCarlines.Top + sngT, sngW .Visible = True .SetFocus End With End Sub