les propriétés des classes externes
bonjour
Je suis en train de développer une classe externe et je crois que je suis en train de passer à côté d'un détail simple, mais que je ne capte pas. Cela est certainement du à mes carences en objet pur.
Donc voilà le code actuel
Code:
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
|
Private _tb As Table
Private _Id_DetPara As Int16
Public Property tb() As Table
Get
Return _tb
End Get
Set(ByVal value As Table)
_tb = value
End Set
End Property
Public Property Id_DetPara() As Int16
Get
Return _Id_DetPara
End Get
Set(ByVal value As Int16)
_Id_DetPara = value
End Set
End Property
Public dm As New DataManager("CS")
Sub New(ByVal cel As TableCell)
Dim dt As DataTable = dm.ExecuterRequeteSimple("SELECT Format FROM MILI_Paragraphe_Detail WHERE Id_Paragraphe_Detail = " & Id_DetPara)
Dim l As New Label
l.Text = "toto" & Id_DetPara
Dim r As New TableRow
Dim c As New TableCell
Dim t As New Table
tb = t
c.Controls.Add(l)
r.Cells.Add(c)
tb.Rows.Add(r)
cel.Controls.Add(tb)
End Sub |
Et dans une page je fais ça :
Code:
1
2
3
4
5
6
7
8
|
Dim r As New TableRow
Dim c As New TableCell
Dim p As New Paragrafe(c)
p.Id_DetPara = 5
c.Controls.Add(p.tb)
r.Cells.Add(c)
tblGene.Rows.Add(r) |
Ce code est placé dans le Page_Load.
Et dans la page je vois marqué
Donc, il y a un détail qui m'échappe : pourquoi j'ai 0 là où je devrais avoir 5 ?
Est ce que j'ai un souci sur l'ordre de création des choses ou est ce que je ne sais pas bien utiliser les propriétés dans une classe ?
Merci pour votre aide.
