1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 0 To 9
Dim btn As New Button()
btn.Text = "Dynamique " & i.ToString
btn.CommandArgument = i.ToString
Panel1.Controls.Add(btn)
AddHandler btn.Command, AddressOf btnDynamique_Command
Panel1.Controls.Add(New LiteralControl("<br>")) 'pour faire joli, retour à la ligne
Next
End Sub
Private Sub btnDynamique_Command(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.CommandEventArgs)
Label1.Text = "Bouton " & e.CommandArgument.ToString
End Sub |
Partager