Bonjour,
Je cherche à mettre 2 infos différentes dans une même ligne d'un ComboBox (2 colonnes séparées). Le contrôle ComboBox de VB ne permet pas de le faire.
Y a-t-il une autre solution ?
Merci d'avance.
mtl.
Bonjour,
Je cherche à mettre 2 infos différentes dans une même ligne d'un ComboBox (2 colonnes séparées). Le contrôle ComboBox de VB ne permet pas de le faire.
Y a-t-il une autre solution ?
Merci d'avance.
mtl.
C'est en liaison avec une BDD ?
Oui, les infos rapatriées proviennent d'une base Access.
mtl.
Tu peux mettre une tabulation entre les deux :
col1 & vbTab & col2
Une autre solution serait de créer son propre OCX.
Un objet texte qui déroule une flexgrid.
J'ai deja fait cela pour un client et il en est très content.
Une autre solution (pour ressembler à ceux qui dénigrent VB) est de passer sous FOXPRO
Il existe une methode pour un listbox et combo à plusieurs colonnes.
Après recherche je peux t'envoyer le fichier exemple si tu le souhaites.
Donne moi dans ce cas ton e-mail.
A+
Jean yves
Salut à tous !
Berenguer m'a fourni la solution au problème du ComboBox à plusieurs colonnes. Je profite de l'occasion pour le remercier ainsi que tous les autres.
Pour en faire profiter aux autres (en effet lorsque j'ai fait une recherche je n'avais pas eu de réponse précise), voici la solution :
1- Ajouter le composant Microsoft Forms 2.0 Objct Library dans votre projet VB. Cela à pour effet d'ajouter des contrôles dans la boîte à outils, dont le contrôle ComboBox (En fait, il a le même nom que le contrôle ComboBox STANDARD de VB sauf qu'il est plus évolué).
2- Ajouter un nouveau contrôle ComboBox sur votre Form.
3- Modifier sa propriété ColumnCount à la valeur souhaitée.
4- Ajouter un code qui ressemble à celui-ci pour insérer les données dans la ComboBox :
Et voilà le tour est joué...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Form_Load() Dim i As Integer For i = 0 To 4 cboTest.AddItem cboTest.List(i, 0) = "Lig " & i & " Col 0" cboTest.List(i, 1) = "Lig " & i & " Col 1" cboTest.List(i, 2) = "Lig " & i & " Col 2" Next i End Sub
A+
mtl
Mots-clés pour faciliter la recherche avancée :
combobox
listbox
plusieurs colonnes
multicolonnes
Forms 2.0
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager