Discussion :

[nirannor]

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 ?

[Pol63]

un List(Of Conteneur) vu que c'est le type

pour une liste vide :

Code :

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

Dim test As New Personnage("toto", New List(Of Conteneur))

ou pour une liste avec des éléments :

Code :

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

1
2
3
Dim l As New List(Of Conteneur)
l.Add(New Conteneur(…))
Dim test As New Personnage("toto", l)

[nirannor]

Parfait.

Merci pour cette réponse rapide.