Problème pour comprendre Implements

**Hokutoki** · 19/11/2011, 22h41

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 :

Code :

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

1
2
3
4
Private mEntierMere As Integer
 
Public Sub tritureAttributs()
End Sub

Je veux ensuite l'implémenter dans une classe contenant un attribut

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

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.
Dans le code suivant, pas moyen d'accéder à EntierMere ni d'utiliser tritureAttributs telle que définie dans ma classe-fille.

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