Discussion :

[Phreak0x]

Bonjour

J'aimerais accéder à une propriété de mes classes filles depuis ma classe mère. La chose est-elle possible ?

Classe Mère : Opération
Classes filles : Debit, Credit, Neutre

Et chacune d'entre ces classes filles ont une propriété :

Code :

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

public Double _Montant

De plus j'ai entendu parlé de virtual... Quelqu'un pourrait m'en dire un peu plus long ?

Merci à vous

Nicolas

[Kelpan]

J'aimerais accéder à une propriété de mes classes filles depuis ma classe mère. La chose est-elle possible ?

Non, c'est illogique

Ta propriété Montant devrait plutôt se trouver dans la classe mère non ?

[Phreak0x]

En faites chaque opération à le droit à trois montants, le crédit, le débit et le neutre. Si je voulais tout mettre dans la classe mère il me suffirait de mettre les champs débit crédit et neutre, j'en suis conscient, mais ça ne m'arrange pas.

Bah et au pire ça ne sera qu'une question pour élargir mes connaissance.

Nicolas

[Kelpan]

Je ne suis pas sur de bien comprendre.

L'héritage n'est peut être pas la solution...
Si j'ai bien compris ce que tu veux faire, tu peux toujours utiliser des interfaces...

Code vb :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Public Interface IDebit
    Public property Montant As Decimal
End interface
 
Public Interface ICredit
    Public property Montant As Decimal
End interface
 
Public Interface INeutre
    Public property Montant As Decimal
End interface
 
Public Class maClass
    Implements IDebit, ICredit, INeutre
 
    ''' Débit
    Private mDec_Debit As Decimal
    Public Property Debit As Decimal _
    Implements IDebit.Montant
    Get
        Return mDec_Debit
    End Get
    Set(ByVal Value As Decimal)
        mDec_Debit = Value
    End Set
    End Property
 
    ''' Crédit
    Private mDec_Credit As Decimal
    Public Property Credit As Decimal _
    Implements ICredit.Montant
    Get
        Return mDec_Credit
    End Get
    Set(ByVal Value As Decimal)
        mDec_Credit = Value
    End Set
    End Property
 
    ''' Neutre
    Private mDec_Neutre As Decimal
    Public Property Neutre As Decimal _
    Implements INeutre.Montant
    Get
        Return mDec_Neutre 
    End Get
    Set(ByVal Value As Decimal)
        mDec_Neutre = Value
    End Set
    End Property
End Class