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
| Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rowSup As New TableRow
Dim ctab As New TableCell
Dim ctab1 As New TableCell
Dim ctab2 As New TableCell
Dim ctab3 As New TableCell
Dim btnBibl As New ImageButton
btnBibl.ImageUrl = "~/Images/livre.jpg"
btnBibl.Height = 20
btnBibl.Width = 20
btnBibl.Attributes.Add("onclick", "window.open('biblioBis.aspx')")
Dim txtb As New TextBox
txtb.Width = 130
Dim txtb1 As New TextBox
txtb1.TextMode = TextBoxMode.MultiLine
txtb1.Width = 278
txtb1.Height = 50
Dim txtb2 As New TextBox
txtb2.Width = 127
Dim txtb3 As New TextBox
txtb3.Width = 145
ctab.Controls.Add(txtb)
ctab.Controls.Add(btnBibl)
ctab1.Controls.Add(txtb1)
ctab2.Controls.Add(txtb2)
ctab3.Controls.Add(txtb3)
rowSup.Controls.Add(ctab)
rowSup.Controls.Add(ctab1)
rowSup.Controls.Add(ctab2)
rowSup.Controls.Add(ctab3)
Table1.Controls.Add(rowSup)
End Sub |
Partager