Insertion combobox dans un datagrid

Commenter

Contenu du snippet

Insertion d'un combobox dans un DATAGRID,

Source / Exemple : 


Private Sub datagrid1_ButtonClick(ByVal ColIndex As Integer) 
On Error Resume Next

Select Case ColIndex
Case 3                              
' ici on travaille sur la colonne 4 du datagrid (index 0,1,2,3)
' la propriété visible du combo1 est FALSE 

          combo1.Width = datagrid1.Columns(3).Width   
          combo1.Left = datagrid1.Left + datagrid1.Columns(3).Left
          combo1.Top = datagrid1.RowTop(datagrid1.Row) + datagrid1.Top
          combo1.SetFocus
          combo1.Text = datagrid1.Columns(3).Value  ' on charge le combo avec le contenu de la cellule active
          combo1.Visible = True ' le combo est correctement placé..on le rend visible
          
          
   End Select
   
End Sub

' ici on applique la valeur de sélection du combo à la cellule active

Private Sub Combo1_Click()
On Error Resume Next
datagrid1.Columns(3).Value = Combo1.Text

Combo1.Visible = False   ' on cache à nouveau le combo....
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (raff999)