VB: combo in una griglia

[gogeta4481]

Ciao a tutti,
qualcuno sa dirmi se si può inserire una combo in una cella di una griglia??

grazie mille a tutti.
Ciao

[Janx]

Certo che è possibile.
Ti faccio un esempio con una DBGrid.
Potresti usare anche DataGrid, MsFlexGrid, modificando un po' il codice.

' Inserisci una DBGrid e una ComboBox.
' e incolla il codice:

Private Sub ComboToGrid(mCombo As ComboBox, mGrid As DBGrid)
On Error GoTo Errore
Dim mCol As MSDBGrid.Column
Set mCol = mGrid.Columns(mGrid.Col)

' potresti inserire quali colonne
' visualizzino il controllo text box
' es. If mCol = 1 Then....
mCombo.Move mGrid.Left + mCol.Left, _
mGrid.Top + mGrid.RowTop(mGrid.Row), mCol.Width

mCombo.Visible = True
mCombo.ZOrder
mCombo.SetFocus
mCombo.Text = mCol.Text
Exit Sub

Errore:
mCombo.Visible = False
End Sub

Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
ComboToGrid Combo1, DBGrid1
End Sub