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 :
Si je remplace UserNum_EH = InstanceUser.SetNum_EH ( mon setter qui affecte la valeur )
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
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.
Partager