在循环 ASP.Net VB 中创建时，不会触发动态按钮单击事件

Question

我有同样的问题，但我已经在page_Init()事件中声明了所有控件。当我在循环中为动态创建的按钮声明事件处理程序并将其地址设置为 x 函数时，它不起作用。

有人可以帮忙吗？

这是我page_Init()中的代码：

Private Sub DynamicControls_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

'Dynamically Load X no. of Updates Panels, and x no. of Controls inside UpdatePanels.
    If (Not Me.DesignMode) Then                 ' Source [Error Creating Control" in the Design View in ] Source : http://tinyurl.com/obutas2
        Dim xLoop As Integer = 5
        For i = 1 To xLoop
            Dim TempUpdatePanel As New UpdatePanel
            TempUpdatePanel.ID = "MyUpdatePanel" & i
            TempUpdatePanel.UpdateMode = UpdatePanelUpdateMode.Conditional
            UpdatePanelContainer.Controls.Add(TempUpdatePanel)
            Dim TempPanel As New Panel
            TempPanel.ID = "MyPanel" & i
            TempPanel.Width = 500
            TempPanel.Height = 200
            TempPanel.BackColor = Drawing.Color.WhiteSmoke
            TempUpdatePanel.ContentTemplateContainer.Controls.Add(TempPanel)

            For x As Integer = 1 To xLoop
                Dim TempNxt_Button As New Button
                TempNxt_Button.ID = "MyNextButton" & i
                TempNxt_Button.Text = "Next >>"
                AddHandler TempNxt_Button.Click, AddressOf Me.Nxt_btn_Click
                TempPanel.Controls.Add(TempNxt_Button)
            Next
            If TempUpdatePanel.ID = "MyUpdatePanel1" Then
                TempPanel.Style.Add("display", "block")
            Else
                TempPanel.Style.Add("display", "none")
            End If
        Next
    End If
End Sub 

这是Nxt_btn_Click Event的代码：

Protected Sub Nxt_btn_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim xLoop1 As Integer = 5
    For i = 1 To xLoop1
        Dim sTempPanel As Panel = FindControl("MyPanel" & i)
        If (sTempPanel Is Nothing) Then
        Else
            sTempPanel.Style.Add("display", "none")
        End If
        Dim sTempPanel1 As Panel = FindControl("MyPanel" & Mid(sender.ID, Len(sender.ID)) + 1)
        If (sTempPanel1 Is Nothing) Then
        Else
            sTempPanel1.Style.Add("display", "block")
        End If
    Next
End Sub

Answer 1

找到了修复程序！

在子循环中创建的按钮是用公共按钮声明的。ID 即使它们是在不同的 UpdatePanel>Panel 中创建的，它们也分配了相同的 ID。我所要做的就是纠正这行代码

从 TempNxt_Button.ID = "MyNextButton" & i

自

            TempButton.ID = "Button" & i & "_" & x

此外，子循环使用 x 作为整数，而不是现在的 i。