PDA

Visualizza la versione completa : VB: combo in una griglia


gogeta4481
20-08-2002, 14:18
Ciao a tutti,
qualcuno sa dirmi se si puņ inserire una combo in una cella di una griglia??

grazie mille a tutti.
Ciao

Janx
20-08-2002, 14:33
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

Loading