Discussion :

[beegees]

Bonjour tout le monde,

J'ai une question sur les combo box :

Ce code me permet de récupérer l'ID :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"SELECT * FROM monnaie WHERE id = " & listLesPiecesDeMonnaies(0).ItemData(listLesPiecesDeMonnaies(0).ListIndex), True)

ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

listLesPiecesDeMonnaies(0).ListIndex

J'ai compris que c'est comme l'indice d'un tableau, chaque élément de la liste contient un numéro.

Je me pose surtout la question sur l'ItemData.

À quoi correspond l'ItemData ?

Est-ce qu'il change ?

Ce code me dit que l'item data ne change pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Form_Load()
   ' Remplit List1 et le tableau ItemData à l'aide
   ' des éléments correspondants triés.
   List1.AddItem "Lucie Gombaud"
   List1.ItemData(List1.NewIndex) = 42310
   List1.AddItem "Véronique Le Goff"
   List1.ItemData(List1.NewIndex) = 52855
   List1.AddItem "Marie-Louise Vierne"
   List1.ItemData(List1.NewIndex) = 64932
   List1.AddItem "François Rhein"
   List1.ItemData(List1.NewIndex) = 39227
End Sub
 
Private Sub List1_Click()
   ' Ajoute le numéro et le nom de l'employé.
   Msg = List1.ItemData(List1.ListIndex) & " "
   Msg = Msg & List1.List(List1.ListIndex)
   Label1.Caption = Msg
End Sub

Merci d'avance.

beegees

[Delbeke]

Itemdata est la collection soeur de la collection list dans une liste déroulante ou un combo. Il existe un ItemData(x) pour chaque ListItem(X). Par contre , on ne peut y stocker qu'une valeur numérique entière.

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  List.AddItem "Toto"
  DerniereEntree = List1.NewIndex    'Donne le numero du dernier item créé
  List1.ItemData(DerniereEntree ) = 5

[beegees]

Bonjour et Joyeux Noël,

Merci beaucoup pour ta réponse.

beegees