Comment passer en revue une serie d'Objets ??

Question

Sur ma Form principale "frmMain" j'ai une Listview indexé "lwAffichage(x)".

J'aimerai savoir comment faire pour passer en revu toute mes Listview lwAffichage.

J'ai esseyai en faisant un For Each mais ca marche po :(, voici comment j'ai fait :


Dim MyObject as Listview

Set MyObject = frmMain.lwAffichage     'La il me fait une erreur
For Each MyObject in frmMain
    MyObject.visible = false     'Par exemple
Next
Set MyObject = Nothing


Pourrier vous me dire comment faire svp ?? a qu'elle endroit je me trompe ??

merci d'avance.

zefri · Answer

En fait, l'instruction For Each ne fonctionne que sur les collections ou les tableaux, tu l'applique à une form donc pas étonnant que ça ne fonctionne pas !

Pour parcourir les listview de ton groupe de contrôle lwAffichage, essaie plutôt quelquechose du genre

Dim oListView as Listview

For each oListView in lwAffichage
    'traitement
Next

Mais cette solution n'est pas forcément la plus adaptée, tout dépend du contexte dans lequel tu veux l'utiliser.

SATANdemon · Answer

merci pour ta reponse

en faite je créé des lwAffichage a chaque fois que je fais une action, et j'ai la possibilité d'en supprimé, donc des fois j'ai 15 lwAffichage de créé et je supprime la numero 5 donc si je fait une boucle ca fait une erreur.

zefri · Answer

Je pense que la sub suivante répondra à tes besoins, sans utiliser de boucle For Each :

Sub Hide_ListView(index As Integer)
Dim i As Integer

    For i = 0 To lwAffichage.Count - 1
        If i = index Then
            lwAffichage(i).Visible = False
            Exit For
        End
    Next

End Sub

Comment passer en revue une serie d'Objets ??

3 réponses

Discussions similaires