Combobox Indéxé [Résolu]

Messages postés
401
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
6 juin 2011
- - Dernière réponse : lesdis
Messages postés
401
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
6 juin 2011
- 19 juin 2006 à 11:24
Bonjour,

Je me rapelle que sur VB6 il était possible de grouper divers control afin de leur donné un index et d'avoir la possibilité de faire des boucles dessus.

exemple :

For i = 0 to 10
    Combobox(i).value="coucou"
next i

Existerait il un moyen similaire sur vb.net svp?

Merci d'avance.
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
401
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
6 juin 2011
3
Merci
A défault d'utiliser un tableau de control, il faut utiliser une collection.

        Dim toto As Collection
        Dim i As Integer

        toto = New Collection

        toto.Add(ComboBox1)
        toto.Add(ComboBox2)

        For i = 1 To 2
            toto.Item(i).text = "coucou"
        Next i

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 120 internautes nous ont dit merci ce mois-ci

Commenter la réponse de lesdis
Messages postés
14507
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 juillet 2019
131
0
Merci
Bonjour

Oui, mais il faut que ce soit toi qui fasse ce tableau.

Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

<fon></fon>
Commenter la réponse de NHenry
Messages postés
401
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
6 juin 2011
0
Merci
Possible de me donner un petit coup de pouce pour cela stp?

J'ai essayé de faire un tableau de control mais cela pose un probleme au niveau de l'execution du code :

        Dim i As Integer
        Dim toto = New Control(1)
        toto(0) = ComboBox1
        toto(1) = ComboBox2
        toto(2) = ComboBox3

        For i = 0 To 2
            toto(i).text = "hello"
        Next

Surement que je m'y prend mal...
Commenter la réponse de lesdis
Messages postés
14507
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 juillet 2019
131
0
Merci
Bonjour

Change :
Dim toto = New Control(1)
        toto(0) = ComboBox1
        toto(1) = ComboBox2
        toto(2) = ComboBox3
Par
Dim toto as Control(2)
        toto(0) = ComboBox1
        toto(1) = ComboBox2
        toto(2) = ComboBox3

Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

<fon></fon>
Commenter la réponse de NHenry
Messages postés
401
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
6 juin 2011
0
Merci
Je n'ai toujours pas trouver de solution pour combler ce manque sur vb.net.

Petit up
Commenter la réponse de lesdis