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
...
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 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
...
....
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.
Partager