VB.NET点击添加按钮仅能向mainPanel添加1个子面板的问题求解

每次点击添加按钮只能生成1个子面板，是几个代码逻辑错误叠加导致的：

• 变量遮蔽：add_Click事件内部用Dim重新声明了局部变量x、z，直接覆盖了类顶部定义的全局变量，局部变量每次事件触发时初始值都是0，计算新面板序号时永远得到0+1=1
• 状态丢失：ASP.NET WebForm每次回发都会重新实例化页面对象，类级别的变量不会跨回发保留值，依赖类变量存计数，每次回发都会被重置
• 动态控件重建逻辑错误：动态生成的服务器控件必须在每次页面生命周期的Page_Init/Page_Load阶段重新创建，否则回发后会直接消失；之前的重建代码末尾写的x = I是无效赋值，未定义的变量I默认值为0，根本无法记录正确的计数
• 控件重叠：创建子面板时没有设置位置偏移，多个面板会叠在同一坐标位置，视觉上看起来像只新增了1个

去掉add_Click里重复声明的局部变量x、z，直接用存在ViewState里的ToolTip值做计数，每次页面加载时先重建历史子面板，新增面板时设置好垂直偏移避免重叠，同时给删除按钮绑定事件：

' 页面加载时重建所有历史动态控件
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    Dim panelCount As Integer = 1
    ' 从ToolTip（存在ViewState中，跨回发不丢失）读取已存在的面板数量
    If Not String.IsNullOrEmpty(mainpanel.ToolTip) Then
        panelCount = Convert.ToInt32(mainpanel.ToolTip)
    End If

    ' 逐个重建已有的子面板
    For i As Integer = 1 To panelCount
        CreateChildPanel(i)
    Next
End Sub

' 抽取出通用的子面板创建方法，避免重复代码
Private Sub CreateChildPanel(panelIndex As Integer)
    Dim pan As New Panel()
    Dim tb As New TextBox()
    Dim but As New Button()

    ' 设置控件ID
    pan.ID = "panel" & panelIndex.ToString()
    tb.ID = "tb" & panelIndex.ToString()
    but.ID = "but" & panelIndex.ToString()

    ' 设置子面板位置，每个面板垂直偏移60px避免重叠，可根据需求调整
    pan.Style.Add("position", "relative")
    pan.Style.Add("top", ((panelIndex - 1) * 60).ToString() & "px")
    pan.Style.Add("margin", "10px 0")

    ' 设置删除按钮文本
    but.Text = "删除当前面板"
    ' 给删除按钮绑定点击事件
    AddHandler but.Click, AddressOf DeleteChildPanel

    ' 将控件加入容器
    pan.Controls.Add(tb)
    pan.Controls.Add(but)
    mainpanel.Controls.Add(pan)
End Sub

' 添加按钮点击事件
Private Sub add_Click(sender As Object, e As EventArgs) Handles add.Click
    Dim newIndex As Integer = 1
    If Not String.IsNullOrEmpty(mainpanel.ToolTip) Then
        newIndex = Convert.ToInt32(mainpanel.ToolTip) + 1
    End If

    ' 创建新的子面板
    CreateChildPanel(newIndex)
    ' 更新计数到ToolTip，持久化到ViewState
    mainpanel.ToolTip = newIndex.ToString()
End Sub

' 删除子面板的事件实现
Private Sub DeleteChildPanel(sender As Object, e As EventArgs)
    Dim delBtn As Button = CType(sender, Button)
    ' 从按钮ID解析出对应面板序号
    Dim panelIndex As String = delBtn.ID.Replace("but", "")
    ' 找到对应面板移除
    Dim targetPan As Panel = CType(mainpanel.FindControl("panel" & panelIndex), Panel)
    If targetPan IsNot Nothing Then
        mainpanel.Controls.Remove(targetPan)
    End If
    ' 更新计数
    mainpanel.ToolTip = (Convert.ToInt32(mainpanel.ToolTip) - 1).ToString()
End Sub

• 动态创建的控件必须每次页面回发都重新生成，不要依赖类变量存状态，优先存在ViewState、HiddenField等可以跨回发保留值的载体中
• 同类动态控件要设置不同的位置或者流式布局，避免重叠导致看起来没有新增
• 不要在事件处理方法里重复声明和全局变量同名的局部变量，会导致逻辑取值错误

内容的提问来源于stack exchange，提问作者Vibe.