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
| Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim number As Integer
number = Session("number")
Me.PanelSaisie.Controls.Add(New LiteralControl("<b>Vous avez déclaré que l'étude comportait <big>" + number.ToString + "</big> étapes.<br><br></b>"))
Dim tb(number) As TextBox
For i As Integer = 1 To number
tb(i) = New TextBox
tb(i).Text = "blabla.... "
tb(i).TextMode = TextBoxMode.MultiLine
Me.PanelSaisie.Controls.Add(New LiteralControl("Etape n°" + i.ToString))
Me.PanelSaisie.Controls.Add(tb(i))
Me.PanelSaisie.Controls.Add(New LiteralControl("<br>"))
Me.PanelSaisie.Controls.Add(tb(i))
Next
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tb As TextBox = New TextBox
Label1.text = tb(1).text <--- bien sur cela ne marche pas
End Sub |
Partager