动态添加控件 AddHandler
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ClickDim la As New LinkButton
la.Text = "addd"
Panel1.Controls.Add(la)
AddHandler la.Click, AddressOf aa
End Sub
Private Sub aa(ByVal sender As Object, ByVal e As System.EventArgs)
MsgBox("anle")
End Sub
webfrom
点击后为啥不执行aa呢?!!!!! --------------------编程问答-------------------- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim la As New LinkLabel
la.Text = "addd"
Panel1.Controls.Add(la)
AddHandler la.Click, AddressOf aa
End Sub
Private Sub aa(ByVal sender As Object, ByVal e As System.EventArgs)
MsgBox("anle")
End Sub
以上代码在WindowsForm中运行正常。 --------------------编程问答-------------------- 我的是webform --------------------编程问答-------------------- 没有提示吗? --------------------编程问答-------------------- 没有任何的提示 !!! 没有错误 但是就是不触发 aa --------------------编程问答-------------------- 搞定了!哈哈!在page_load的问题! --------------------编程问答-------------------- Dim Button As Button = DirectCast(Page.FindControl("myButton"), Button)
AddHandler Button.Command, AddressOf Me.On_Button
或
Dim btn As New Button()
btn.Text = "动态按钮"
btn.CommandArgument = "CommandArgument"
AddHandler btn.Command, AddressOf btnGrid_Command
Me.Panel1.Controls.Add(btn)
--------------------编程问答--------------------
WebApplication 需要讲红色部分写在PageLoad 事件中方可; --------------------编程问答-------------------- 学习了
学习
谢谢!~~!~!~ --------------------编程问答-------------------- 哈哈!555555555555555 --------------------编程问答--------------------
补充:.NET技术 , VB.NET