Dim tbl1 As HtmlTable
Dim Ligne As HtmlTableRow
Dim cellule As HtmlTableCell
tbl1 = New HtmlTable
Dim j, k, nb As Integer
nb = 0
For j = 1 To 8
Ligne = New HtmlTableRow
For k = 1 To 5
If (nb <= count) Then
If ((tab_img(nb) <> "")) Then
cellule = New HtmlTableCell
Dim img As New System.Web.UI.WebControls.ImageButton
img.ID = "img" & nb
img.ImageUrl = "~/Img/" & tab_img(nb)
img.CausesValidation = False
img.OnClientClick = "javascript
:test();"
img.Width = System.Web.UI.WebControls.Unit.Pixel(100)
img.Height = System.Web.UI.WebControls.Unit.Pixel(100)
cellule.Controls.Add(img)
Ligne.Cells.Add(cellule)
End If
End If
nb = nb + 1
Next
tbl1.Rows.Add(Ligne)
Next
PlaceHolder1.Controls.Clear()
PlaceHolder1.Controls.Add(tbl1)
Partager