| 12
 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