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 ModuleDonc à chaque appuie sur une touche il y ré-affichage de tous les objets ( avec un compteur qui s'affiche)
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
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
Partager