[VB.NET] Utilisation des collections [Résolu]

Utilisation des collections [Résolu] [VB.NET] - VB/VBA/VBS - Programmation

Marsh Posté le 24-12-2011 à 10:52:57    

Bonjour à tous,
 
Je "bricole depuis quelque temps en VB.Net.
J'essaie de passer le cap de la programmation objet, mais je bute sur le point suivant.
 
J'ai créé une classe Classe1 avec ses propriétés

Code :
  1. Public Class Classe1
  2.     Private _Classe1Nom As String
  3.     Private _ListeClasse2 as Collection
  5.     Sub New()
  6.         Dim _ListeClasse2 As New List(Of Classe2)
  7.     End Sub
  9.     Sub New(ByVal Nom As String)
  10.         _Classe1Nom = Nom
  11.         Dim _ListeClasse2 As New List(Of Classe2)
  12.     End Sub
  14. #Region "Propriétés"
  15.     Public Property Nom() As String
  16.         Get
  17.             Return _Classe1Nom
  18.         End Get
  19.         Set(ByVal value As String)
  20.             _Classe1Nom = value
  21.         End Set
  22.     End Property
  24.     Public Property ListeClasse2() As Collection
  25.         Get
  26.             Return _ListeClasse2
  27.         End Get
  28.         Set(ByVal value As Collection)
  29.             _ListeClasse2=value
  30.         End Set
  31.     End Property
  32. #End Region
  34. End Class


J'ai créé une seconde classe Classe2, qui doit être utilisée pour remplir la propriété ListeClasse2 de Classe1

Code :
  1. Public Class Classe2
  2.     Private _Classe2Nom As String
  4.     Sub New()
  6.     End Sub
  8.     Public Property Nom As String
  9.         Get
  10.             Return _Classe2Nom
  11.         End Get
  12.         Set(ByVal value As String)
  13.             _Classe2Nom = value
  14.         End Set
  15.     End Property
  17. End Class


J'arrive à créer ma classe 1 et à définir sa propriété "Nom".
Mais je n'arrive pas à remplir la propriété ListeClasse2, il  y a une erreur "System.NullReferenceException".

Code :
  1. Dim Class1 as New Classe1
  2. Class1.Nom="Test"
  3. Dim Class2 as New Classe2
  4. Class2.Nom="Test Classe2"
  5. Class1.ListeClasse2.add(Class2)


Pouvez-vous m'éclairer?
 
Merci


Message édité par astik89 le 25-12-2011 à 20:10:21
Reply

Marsh Posté le 24-12-2011 à 10:52:57   

Reply

Marsh Posté le 25-12-2011 à 15:43:32    

Personne??

Reply

Marsh Posté le 25-12-2011 à 20:09:08    

J'ai finalement réussi à résoudre mon problème.
 

Code :
  1. Public Class Classe1
  2.     Private _Classe1Nom As String
  3.     Private _ListeClasse2 as Collection New List(Of Classe2)
  5. ...
  7. #Region "Propriétés"
  9. ...
  11.     Public Property ListeClasse2() As Collection List(Of Classe2)
  12.         Get
  13.             Return _ListeClasse2
  14.         End Get
  15.         Set(ByVal value As Collection List(Of Classe2))
  16.             _ListeClasse2=value
  17.         End Set
  18.     End Property
  19. #End Region
  21. End Class


Message édité par astik89 le 25-12-2011 à 20:09:57
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed