[VB6] combo in a grid

hi,
i want to create a grid with the possibility to
click the some cells to choose its value from
a combo box.
How can i do it? with MSHFlexgrid or others?

thanks.

Ruotao Zhang

Private Sub Combo1_Click()
MSFlexGrid1.Text = Combo1.Text
End Sub

Private Sub Form_Load()
'hide combo until we need it
Combo1.Visible = False


'here i create the selection list Combo1.AddItem "Linie 1"
Combo1.AddItem "Line 1"
Combo1.AddItem "Line 3"
Combo1.AddItem "Line 4"
Combo1.AddItem "Line 5"

'make lots and lots of rows and columns
MSFlexGrid1.Rows = 500
MSFlexGrid1.Cols = 500
MSFlexGrid1.FixedRows = 2
MSFlexGrid1.FixedCols = 1
End Sub

Private Sub Form_Resize()
'make grid the size of the form
MSFlexGrid1.Move Me.ScaleLeft, Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight
End Sub

Private Sub MSFlexGrid1_Click()
'make sure user didn't click on a fixed row or column
If MSFlexGrid1.Col >= MSFlexGrid1.FixedCols And MSFlexGrid1.Row >=
MSFlexGrid1.FixedRows Then
Call PositionCombo
End If
End Sub

Private Sub MSFlexGrid1_EnterCell()
Call PositionCombo
End Sub


Sub PositionCombo()
'Positions the combobox on the current cell and make it visible
Combo1.Move MSFlexGrid1.CellLeft + MSFlexGrid1.Left, MSFlexGrid1.CellTop +
MSFlexGrid1.Top, MSFlexGrid1.CellWidth
Combo1.Visible = True
End Sub

Sub HideCombo()
'set combo1 visible property to false
Combo1.Visible = False
End Sub

Private Sub MSFlexGrid1_LeaveCell()
Call HideCombo
End Sub

Private Sub MSFlexGrid1_RowColChange()
Call HideCombo
End Sub

Private Sub MSFlexGrid1_Scroll()
Call HideCombo
End Sub


Hello, Szilard wish you the best.
You can mail me at:[email protected]
bye