1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
dim var as integer
dim WithEvents btn_suiv as Button
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
var = 10
btn_suiv = New Button
btn_suiv.Attributes.Add("id", "btn_suiv")
btn_suiv.Attributes.Add("runat", "server")
AddHandler btn_suiv.Click, AddressOf btn_suiv_Click
me.form1.controls.add(btn_suiv)
end sub
Public Sub btn_suiv_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn_suiv.Click
var = 12
End Sub |
Partager