Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在此处放置初始化页的用户代码 Dim btn As New Button btn.Text = "Click!" btn.Attributes.Add("style", "position:absolute;top:30;left:30;") Me.Controls(1).Controls.Add(btn) AddHandler btn.Click, AddressOf btn_click End Sub Private Sub btn_click(ByVal sender As Object, ByVal e As EventArgs) Response.Write("ok") End Sub
'在此处放置初始化页的用户代码
Dim btn As New Button
btn.Text = "Click!"
btn.Attributes.Add("style", "position:absolute;top:30;left:30;")
Me.Controls(1).Controls.Add(btn)
AddHandler btn.Click, AddressOf btn_click
End Sub
Private Sub btn_click(ByVal sender As Object, ByVal e As EventArgs)
Response.Write("ok")
End Sub