Discussion :

[guda]

Bonjour j’ai une question pour rendre une classe imbriquée uniquement accessible via une property.
Je ne suis pas à l'aise avec la programmation orientée Objet mais je vais tenter de m'expliquer.

J’ai créé ce type de classe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Friend Class Maison
 
     ' je souhaite que cette class ne puisse être exposée et donc appelée que via la property Cette_Fenetre
    Friend Class fenetres_mere
        Sub toto()
        End Sub
    End Class
 
   'on ne doit pouvoir attaquer la classe fenetres_mere qu'à partir de la propriété Cette_Fenetre
    Friend Property Cette_Fenetre As New fenetres_mere
End Class

Au final, la propriété Cette_Fenetre fonctionne bien. mais je peux toujours accéder à la classe fenetres_mere

Code :

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

1
2
3
Dim test As New Maison
test.Cette_Fenetre.toto() 'fonctionne bien
test.fenetres_mere '--> souhaite que cela ne soit pas possible

Je pense mal m’y prendre. Auriez-vous des conseils ?
Merci pour votre aide

Dan

[popo]

https://docs.microsoft.com/fr-fr/dot.../access-levels

[guda]

Merci pour ce retour mais c’est précisément le sens de ma question. J’ai joué avec ses paramètres par exemple en mettant ma classe fenetres_mere
en private et la propriété Cette_Fenetre en Friend.

Visual Studio affiche une erreur car je ne peux pas exposer ma classe fenetres_mere si elle est en privé. J’ai fait des essais avec Friend protected. J’ai aussi regardé les belles images qui résument le rôle de ces niveaux d’accès mais je sèche - je ne comprends pas tout

D’où ma question, je pense que je n’utilise pas la bonne méthode

bonne journée

Dan

[guda]

J'ai trouvé une solution. Comme expliqué, jouer avec les niveaux d’accès ne répondaient pas au besoin. La méthode n'était pas bonne. L'implémentation d'une interface permet de rendre la classe interne "invisible" mais dont les instances sont exposées à l’extérieur de la classe..

J'ai trouvé cette solution sur cette page : https://stackoverflow.com/questions/...nested-classes

Ils donnent le code suivant :

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
Module EntryPoint
    Sub Main()
        Dim OuterClassInstance As New OuterClass
        OuterClassInstance.NestedClassInstance.GetParentX()
    End Sub
End Module
 
Public Class OuterClass
    Public X As Integer = 123
    Public NestedClassInstance As ISomeImplementation = New NestedClass(Me)
 
    Private Class NestedClass
        Implements ISomeImplementation
        Private Parent As OuterClass
 
        Public Sub New(ByVal _Parent As OuterClass)
            Parent = _Parent
        End Sub
 
        Public Sub GetParentX() Implements ISomeImplementation.GetParentX
            Debug.WriteLine("X = " & Parent.X.ToString)
        End Sub
    End Class
End Class
 
Public Interface ISomeImplementation
    Sub GetParentX()
End Interface