Bonjour,
J'ai plusieurs Classes imbriquées (pour l'exemple je n'en montre que 2) comme ceci :
Je valorise PropriétéPartagé comme ceci :
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
25
26
27
28
29
30 Public Class Class1 Private Class2 as new Class2 Private _Propriétépartagée as string Public Sub New () End Sub Public Property Propriétépartagée As String Get Return _Propriétépartagée End Get Set(ByVal value As String) _Propriétépartagée = value End Set End Property Public Class Class2 Private _Propriétépartagée as String Public Property Propriétépartagée As String Get Return _Propriétépartagée End Get Set(ByVal value As String) _Propriétépartagée = value End Set End Property Public Sub New () End Sub End Class End Class
Comment faire pour que cette valeur soit connue dans Class2 et d'une façon générale pour quelle soit connue de toutes les sous-classes ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim MaClass1 as New Class1 MaClass1.PropriétéPartagé = "Valeur"
Partager