Bonjour,
je cherche actuellement à comprendre comment fonctionne Implements, et malgré les autres fils du forum à ce propos, j'ai du mal à voir comment rendre correct ce qui suit.
Je commence par définir une classe-interface cMere qui contient un attribut entier :
Je veux ensuite l'implémenter dans une classe contenant un attribut
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private mEntierMere As Integer Public Sub tritureAttributs() End Sub
cFille :
Mon objectif est de pouvoir dans mon Main() créer un objet de type cFille, choisir les valeurs des attributs mEntierMere et mEntierFille, et appeler la méthode tritureAttributs de la classe cFille.
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 Implements cMere Private mEntierFille As Integer Public Property Get EntierFille() As Integer EntierFille = mEntierFille End Property Public Property Let EntierFille(valeur As Integer) mEntierFille = valeur End Property Public Property Get cMere_EntierMere As Integer cMere_EntierMere = mEntierMere End Property Public Property Let cMere_EntierMere(valeur As Integer) mEntierMere = valeur + 1 End Property Private Sub cMere_tritureAttributs() Msgbox "Produit des attributs = " & (EntierMere * EntierFille) End Sub
Dans le code suivant, pas moyen d'accéder à EntierMere ni d'utiliser tritureAttributs telle que définie dans ma classe-fille.
Pouvez-vous m'aider à comprendre comment rendre les choses correctes ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub Main() Dim maFille As New cFille maFille.EntierFille = 2 maFille.EntierMere = 3 maFille.tritureAttributs() End Sub
Je soupçonne qu'un
dans les attributs de la classe-fille devrait aider, mais ça ne me suffit pas pour en venir à bout !
Code : Sélectionner tout - Visualiser dans une fenêtre à part Private maMere As cMere![]()
Partager