Discussion :

[7evo7]

bonsoir
je veux parcourir l'ensemble des objet crées dans sub main pour les enregistrer dans un fichier txt ..

Code :

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

1
2
3
4
5
For Each f As object In Module1.Main 'il me souligne  module1.main
            If TypeOf (f) Is TypemyObject Then
                IO.File.AppendAllText("C:\Users\evo\Desktop\TestFiles\formateur.txt", f.ToString)
            End If
        Next

comment resoudre ce prob et merci d'avance ..

[2h15Crew]

Tu ne peux pas mettre une fonction comme condition dans ton ForEach.
Essaye dans ton main de remplir un tableau (variable globale ?) que tu comptes ensuite dans ton ForEach

[7evo7]

merci de votre reponse mon ami mais mois je veux juste parcourir les objets crées dans mon sub main .. je sais l'autre possibilite de créer par exemple
une arrayList et de stocker mes objet creés et ensuite la parcourir

mais moi je voudrai parcourir l'ensemble des objet .. et merci une autre fois

[2h15Crew]

je veux parcourir l'ensemble des objet crées dans sub main pour les enregistrer dans un fichier txt ..

Tu déclares un tableau Private de la classe.
Dans ton main, à chaque fois que tu crées un objet, tu l'ajoutes au tableau.

Ton ForEach devrait ressembler à ça

Code :

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

1
2
3
4
5
For Each f As object In Module1.TonTableau 'il me souligne module1.main
    If TypeOf (f) Is TypemyObject Then
        IO.File.AppendAllText("C:\Users\evo\Desktop\TestFiles\formateur.txt", f.ToString)
    End If
Next

[7evo7]

OK Merci