Bonsoir. j'ai besoin de votre aide pour résoudre un problème.
J'ai une classe Enfant avec un tableau shared. Je veux que chaque objet créé soit ajouté automatiquement au tableau. j'ai essayé ce constructeur mais sans succès:
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 Enfant Public nom As String Public age As Integer Public Shared tablo(20) As Enfant Public Shared x As Integer = 0 Public Sub New(ByVal n As String, ByVal a As Integer) Me.nom = n Me.age = a Enfant.tablo(x) = New Enfant(nom, age) x += 1 End Sub End ClassIl me donne une erreur au niveau du constructeur: Une exception non gérée du type 'System.StackOverflowException' s'est produite dans ConsoleApplication1.exe
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 Module Module1 Sub Main() Dim enf1 As New Enfant("Kamal", 12) Dim enf2 As New Enfant("Nadia", 14) Dim enf3 As New Enfant("Sara", 10) Dim enf4 As New Enfant("Lamiae", 13) Dim enf5 As New Enfant("Pascal", 12) Dim enf6 As New Enfant("Omar", 14) Console.WriteLine(Enfant.tablo(1).nom) Console.ReadKey() End Sub End Module
Merci de votre aide
Partager