Bonjour,

Après avoir parcouru le cours de P.Lasserre et chercher un exemple sur google, je n'arrive toujours pas à trouver de solution à mon problème. En effet, je souhaite ajouter à une classe, un objet de type List(of).

Ci dessous ce que je fais dans la classe de Personnage...

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
24
Public Class Personnage
    Private _Nom As String
    Public Property Nom As String
        Get
            Return _Nom
        End Get
        Set(ByVal value As String)
            _Nom = value
        End Set
    End Property
    Private _MaListeDeConteneur As List(Of Conteneur)
    Public Property MaListeDeConteneur As List(Of Conteneur)
        Get
            Return _MaListeDeConteneur
        End Get
        Set(ByVal value As List(Of Conteneur))
            _MaListeDeConteneur = value
        End Set
    End Property
    Sub New(ByVal Nom As String, ByVal MaListeDeConteneur As List(Of Conteneur))
        _Nom = Nom
        _MaListeDeConteneur = MaListeDeConteneur
    End Sub
End Class
Puis dans le code pour créer un nouveau personnage avec sa List(Of)...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim test As Personnage
        test = New Personnage("toto", ????)
Mais que dois-je mettre à la place des points d'interrogation pour que cela fonctionne ?