Bonjour,

Voila j'ai une classe Lots qui fait appel à la classe Critères_Lots, elle même faisant appel à la classe Sous_Critères:
Comment rajouter la lsite des critères_Lots dans la classe Critères_LotsEntreprises en gardant les propriétés de cette classe: Critères_Name_1() et Critères_Date_1() . Par contre lorsque les valeurs de spropriétés de la classe Critères_Lots sont modifiées, les modif doivent se répercuter dans Critères_LotsEntreprises.
La question est donc simple: comment rajouter des propriétés d'une classe à une autre qui en possèdent déja...
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
 
Namespace SMPE_ELT.Lots
    <Serializable()> Public Class Lots
        Inherits Element
        Public Sub New()
            MyBase.New()
        End Sub
        Public Property ListSoumissionsOffres_EnsembleEntreprises() As ChildItemCollection(Of Lots, SoumissionsOffres_EnsembleEntreprises)
        Public Sub New(ByRef Projet As Projet, ByVal name As String)
            MyBase.New(Projet, name)
 
                        ListCritèresAttribution = New List(Of Critères_Lots)
        End Sub
 
        Public Property ListCritèresAttribution As List(Of Critères_Lots)
 
    End Class
End Namespace
...
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
 
namespace SMPE_ELT
    <Serializable()> Public Class Critères_Lots
        Inherits Element
 
        Public Sub New()
            MyBase.New()
        End Sub
        Public Sub New(ByRef _MarchéPublic As MarchéPublic, _
                       ByVal name As String)
                ListSousCritères_Lots = New List(Of SousCritères_Lots)
        End Sub
#Region "Members Type de critères"
        Public Property Critères_Name() As string
       Public Property Critères_Date() As Date
#End Region
        '
    End Class
End Namespace
....
...
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
 
Namespace SMPE_ELT.Entreprise
    <Serializable()> Public Class Entreprise
        Inherits Element
        Public Sub New()
            MyBase.New()
        End Sub
 
        Public Sub New(ByRef Projet As Projet, ByVal name As String)
            MyBase.New(Projet, name)
 
                        ListCritères_LotsEntreprises = New List(Of Critères_LotsEntreprises)
        End Sub
 
        Public Property ListCritères_LotsEntreprises As List(Of Critères_LotsEntreprises)
 
    End Class
End Namespace
enfin
...
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
 
namespace SMPE_ELT
    <Serializable()> Public Class Critères_LotsEntreprises
        Inherits Critères_Lots
 
        Public Sub New()
            MyBase.New()
        End Sub
        Public Sub New(ByRef _MarchéPublic As MarchéPublic, _
                       ByVal name As String)
                ListCritères_LotsEntreprises = New List(Of SousCritères_LotsEntreprises)
        End Sub
#Region "Members Type de critères"
        Public Property Critères_Name_1() As string
       Public Property Critères_Date_1() As Date
#End Region
        '
    End Class
End Namespace
....
...

Merci de m'aider.