Discussion :

[stracoma]

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 :

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

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 :

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

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

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

[rv26t]

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 :

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

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)

[stracoma]

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

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