Bonjour,

j'ai lu le tutoriel de ce site à cette adresse

Tous a la fin il y a possibilité, de réaliser un pseudo héritage entre deux classe,
le problème est que je n'arrive pas à realisé cela.

voici mon code :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Class Utilisateur
 
    Private Num_EH 
    Private Num_Reg 
 
    Public Sub Class_Initialize()
        SetNum_EH() : SetNum_Reg() 
    End Sub
 
    Public Property Get SetNum_EH()
        Num_EH = Session("EH_Num") 
    End Property
 
    Public Property Get SetNum_Reg()
        Num_Reg = Session("CMSI")
    End Property
 
    Public Property Get GetNum_EH()
        Response.Write Num_EH
    End Property
 
    Public Property Get GetNum_Reg()
        Response.Write Num_Reg
    End Property
 
End Class
 
' creation d'un user
Set User = New Utilisateur
 
 
puis :
 
 
Class ListeD_Regions
 
    Private InstanceUser
    Private UserNum_EH 
    Private UserNum_Reg 
    Private Sel_Num_EH 
    Private Sel_Num_Reg 
 
    Public Sub Class_Initialize()
        Set InstanceUser = New Utilisateur
        SetUser_Num_EH() : SetUser_Num_Reg() : SetSel_Num_EH() : SetSel_Num_Reg()
    End Sub
 
 
    Public Property Get SetUser_Num_EH()
        UserNum_EH = InstanceUser.SetNum_EH
    End Property
 
    Public Property Get SetUser_Num_Reg()
        UserNum_Reg = InstanceUser.SetNum_Reg
    End Property
 
    Public Property Get SetSel_Num_EH()
        If Not IsEmpty(Request.Form("EH")) Then Sel_Num_EH = Request.Form("EH") else Sel_Num_EH = UserNum_EH
    End Property
 
    Public Property Get SetSel_Num_Reg()
        If Not IsEmpty(Request.Form("Reg")) Then    Sel_Num_Reg = Request.Form("Reg") else Sel_Num_Reg = UserNum_Reg
    End Property
 
    Public Property Get GetSel_Num_EH()
        Response.Write Sel_Num_EH
    End Property
 
    Public Property Get GetSel_Num_Reg()
        Response.Write Sel_Num_Reg
    End Property
 
End Class
 
Set ListReg = New ListeD_Regions
Si je remplace UserNum_EH = InstanceUser.SetNum_EH ( mon setter qui affecte la valeur )
par UserNum_EH = InstanceUser.GetNum_EH ( le getter qui permet d'afficher la valeur )

ma valeur va bien s'afficher sur ma page, mais sinon la valeur (InstanceUser.SetNum_EH qui est donc le numero EH de ma classe Utilisateur ) n'ai pas affecté à la variable UserNum_EH de ma classe ListeD_Regions

Quelqu'un serait m’expliquer pourquoi ?

Cordialement.