Question sur ItemData

Question

Bonjour tout le monde,


J'ai en fait une question sur ItemData.


J'ai le code ci-dessous :

Code  :
tableau = Split("petit,3;grand,5", ";")
With comboTailleSupport
        .Clear
Dim i AsInteger, element AsVariant
'de 0 au nombre d'élément dans le tableau
For i = 0To UBound(tableau)
            element = Split(tableau(i), ",")
            .AddItem element(0)
            .ItemData(.NewIndex) = Val(element(1))
Next i

Je ne comprends pas trop cette ligne.


Je me pose aussi des questions sur l'utilité de ItemData (je vais quand même aller voir dans la FAQ si on en parle pas).


J'ai une deuxième question :


Je récupère dans une procédure la valeur de l'ItemData qui est par exemple 3.


J'aimerais juste ajouter dans le cas de 3 une combo box avec ces valeurs :


1

2

3


J'ai essayé d'utiliser ce code :

Code  :
PrivateSub AfficherNombreBoules(ByVal NombreBoules AsLong)
MsgBox (comboTailleSupport.ItemData(comboTailleSupport.ListIndex))
For i = 0To NombreBoules
With comboNombreBoules
        .AddItem Chr(i)
EndWith
Next i
comboNombreBoules.Visible = True
EndSub

Mais ça ne fonctionne pas.


Sauriez-vous m'aider svp ?


Un tout grand merci d'avance.


beegees

cs_Galain · Answer

tableau = Split("petit,3;grand,5", ";") ' tableau de 2 éléments "petit,3" et "grand,5" With comboTailleSupport .Clear ' on vide la liste comboTailleSupport Dim i AsInteger, element AsVariant 'de 0 au nombre d'élément dans le tableau For i = 0To UBound(tableau) ' Pour chaque élément du tableau element = Split(tableau(i), ",") ' on sépare "petit" et "3" .AddItem element(0) ' on ajoute "petit" dans la liste .ItemData(.NewIndex) = Val(element(1)) ' voir note dans ce qui suit ( .ItemData(.NewIndex)= "3" associé à "petit" Next i ItemData, propriété ItemData, propriété

Renvoie ou définit un numéro spécifique pour chaque élément d'un contrôle ComboBox ou ListBox. Syntaxe object .ItemData(index) [ = number] La syntaxe de la propriété ItemData comprend les éléments suivants : Élément, Description, ---- object,

Expression d'objet qui prend la valeur d'un objet figurant dans la liste "Application"., ---- index, Numéro d'un élément spécifique de l'objet., ---- number, Numéro à associer à l'élément spécifié. Remarques La propriété ItemData est un tableau de valeurs d'entiers longs comprenant le même nombre d'éléments que la propriété List d'un contrôle. Vous pouvez utiliser le numéro associé à chaque élément pour identifier ces éléments. Par exemple, vous pouvez utiliser le numéro d'identification des employés pour identifier leur nom dans un contrôle ListBox. Lorsque vous renseignez le contrôle ListBox, complétez également les éléments correspondants du tableau ItemData avec le numéro des employés. La propriété ItemData est souvent utilisée comme index dans un tableau de structures de données associé aux éléments d'un contrôle ListBox. Note Lorsque vous insérez un élément dans une liste à l'aide de la méthode AddItem, un élément est aussi automatiquement inséré dans le tableau ItemData. La valeur de la propriété n'est toutefois pas remise à zéro ; l'élément conserve la valeur qui occupait cette position avant l'ajout du nouvel élément à la liste. Lorsque vous utilisez la propriété ItemData, veillez à définir sa valeur dès que vous ajoutez des éléments à une liste. Pour ta seconde question il faut mettre For i = 1 To NombreBoules With comboNombreBoules .AddItem Chr(i+48) ' le chiffre 0 a comme code Ascii 48 (en décimal), le chiffre 1 c'est 49, etc... jusqu'à 9 avec 56 en ASCII EndWith Next i La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi. GRENIER Alain

Question sur ItemData

1 réponse

Votre réponse

Discussions similaires