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 : 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
 
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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é
toto0
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.