list(of) en poo

Bonsoir à tous.
En voulant apprendre la poo en Vb 2010, je crée des exemples à partir de ce que j'ai appris.
J'ai créé le code suivant contenant un module et une classe "eleve", en le lisant vous allez comprendre le principe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Module Module1   Sub Main()   Dim Klasse As New List(Of eleve) Klasse.Add(New eleve("Mous", 11, 10)) Klasse.Add(New eleve("Alain", 13, 13.2)) Klasse.Add(New eleve("Sacha", 12, 15.5)) Klasse.Add(New eleve("Fatima", 10, 11))   Dim i As Byte = 1 For Each x As eleve In Klasse For y As Integer = 0 To Klasse.Count - 1 Console.WriteLine(Klasse(y).afficher) Next Console.WriteLine(" nombre de boucles : " & i & vbCrLf) i += 1 Console.ReadKey() Next   End Sub   End Module

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Class eleve Public prenom As String Public age As Byte Public note As Double Public Sub New(ByVal pprenom As String, ByVal aage As Byte, ByVal nnote As Double) Me.prenom = pprenom Me.age = aage Me.note = nnote End Sub Public Function afficher() Return " " & Me.prenom & " " & Me.age & " " & Me.note End Function End Class

---

Donc à chaque appuie sur une touche il y ré-affichage de tous les objets ( avec un compteur qui s'affiche)
Jusque là tout va bien, et voila le résultat
Pièce jointe 160994
Mais voilà mon problème, j'ai essayé depuis 3 h d'éliminer le 1er objet après chaque boucle, c'est à dire, à la 2ème boucle ne plus avoir Mouss, à la 3ème boucle ne plus avoir Alain, à la 4ème boucle ne plus avoir Sacha ...
J'ai essayé plusieurs choses (notament Klasse.RemoveAt(0)) mais sans succès.
Si quelqu'un pouvait m'aider, Merci

Bonjour,

Il ne faut pas ajouter, supprimer un élément dans une collection pendant un parcours de celle-ci avec une boucle avec For Each.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim i As Byte = 1 While Klasse.Count > 0 For Each UnEleve As eleve In Klasse Console.WriteLine(UnEleve.afficher) Next Klasse.RemoveAt(0) Console.WriteLine(" nombre de boucles : " & i) i += 1 Console.ReadKey() End While

---

On utilise For Each pour parcourir la collection et effectuer l'affichage.
Et une boucle classique pour ce traitement particulier de suppression. (et dans ce traitement à chaque tour de boucle, on supprime le premier, jusqu'à ce qu'il n'y en ait plus)

Merci pour ton aide. ça marche, et surtout j'ai compris.
Et ça:

Citation:

---

Il ne faut pas ajouter, supprimer un élément dans une collection pendant un parcours de celle-ci avec une boucle avec For Each

---

doit être gravé dans ma substance grise.
Encore merci