VB.NET动态创建同位置面板无法切换显示的问题求助

问题背景 #

使用Visual Studio 2022 + VB语言开发，程序启动时从数据库动态创建21个位置、大小完全相同的Panel，创建顺序如下：

1. panel2
2. pnlDeptItems01
3. pnlDeptItems11
4. pnlDeptItems22
5. pnlDeptItems23
6. pnlDeptItems24
7. pnlDeptItems25
8. pnlDeptItems26
9. pnlDeptItems27
10. pnlDeptItems28
11. pnlDeptItems29
12. pnlDeptItems32
13. pnlDeptItems54
14. pnlDeptItems82
15. pnlDeptItems83
16. pnlDeptItems84
17. pnlDeptItems85
18. pnlDeptItems96
19. pnlDeptItems97
20. pnlDeptItems98
21. pnlDeptItems99

已确认所有面板及内部按钮均成功创建，但无法切换显示指定面板。尝试多段切换代码均无效，始终仅显示第一个创建的面板。

相关代码 #

尝试的切换代码1 #

For Each control In Me.Controls.OfType(Of Panel)
    If control.Name = btnPanelName Then
        control.Controls.Add(oButton)
        control.Visible = True
        control.BringToFront()
        Console.WriteLine(control.Name & " " & oButton.Name)
    End If
Next

尝试的切换代码2 #

For Each control In Me.Controls.OfType(Of Panel)
    If control.Name = btnPanelName Then
        control.Controls.Add(oButton)
    End If
    If control.Name = "pnlDeptItems26" Then
        control.Visible = True
    End If
Next

Panel创建代码 #

Private Sub CreateNewPanel(ByRef pnlName As String, ByRef pnltopx As Integer, ByRef pnlLefty As Integer, ByRef pnlSizex As Integer, ByRef pnlSizey As Integer)
    Dim iPanel As Panel
    iPanel = New Panel
    iPanel.Name = pnlName
    iPanel.Enabled = True
    iPanel.Visible = False
    iPanel.Top = pnltopx
    iPanel.Left = pnlLefty
    iPanel.Size = New Size(pnlSizex, pnlSizey)
    iPanel.AutoScroll = True
    Me.Controls.Add(iPanel)
    If iPanel.Name = "pnlDepartments" Or iPanel.Name = "pnlDeptItems26" Then
        iPanel.Visible = True
        iPanel.BringToFront()
    End If
End Sub

创建调用代码 #

CreateNewPanel("pnlDeptItems" & dataDeptId, 608, 5, 429, 479)

问题原因 #

1. 未隐藏重叠面板：所有Panel位置、大小完全一致，切换时仅设置目标面板可见并前置，但其他面板仍处于可见状态（或部分面板默认可见），导致面板重叠覆盖，最早创建的Panel因Z轴层级或默认显示设置始终处于视觉最上层。
2. 查找与显示逻辑不完整：仅遍历设置目标面板的可见性，未处理其他面板的显示状态，无法确保目标面板成为唯一可见的面板。
3. 创建时的Visible默认值冲突：创建代码中默认将Panel的Visible设为False，仅两个面板设为True，与描述中“所有面板Visible设为True”不符，可能导致显示逻辑混乱。

解决办法 #

1. 完善切换逻辑：隐藏其他面板，仅显示目标面板 #

修改切换代码，先将所有Panel设为隐藏，再定位并显示目标面板：

' 第一步：隐藏所有Panel，避免重叠显示
For Each pnl As Panel In Me.Controls.OfType(Of Panel)
    pnl.Visible = False
Next

' 第二步：查找目标Panel并设置显示
Dim targetPanel As Panel = Me.Controls.Find(btnPanelName, True).FirstOrDefault()
If targetPanel IsNot Nothing Then
    ' 若oButton已存在于其他Panel，需先移除再添加，避免控件重复
    If oButton.Parent IsNot Nothing Then
        oButton.Parent.Controls.Remove(oButton)
    End If
    targetPanel.Controls.Add(oButton)
    targetPanel.Visible = True
    targetPanel.BringToFront()
    Console.WriteLine($"{targetPanel.Name} {oButton.Name}")
End If

2. 修正Panel创建时的Visible设置 #

如果需要所有Panel默认可见，调整创建代码中的默认Visible值：

Private Sub CreateNewPanel(ByVal pnlName As String, ByVal pnltopx As Integer, ByVal pnlLefty As Integer, ByVal pnlSizex As Integer, ByVal pnlSizey As Integer)
    Dim iPanel As New Panel()
    iPanel.Name = pnlName
    iPanel.Enabled = True
    ' 根据需求设置默认Visible状态，此处改为True
    iPanel.Visible = True
    iPanel.Top = pnltopx
    iPanel.Left = pnlLefty
    iPanel.Size = New Size(pnlSizex, pnlSizey)
    iPanel.AutoScroll = True
    Me.Controls.Add(iPanel)
    
    ' 保留默认显示指定面板的逻辑（如果需要）
    If iPanel.Name = "pnlDepartments" Or iPanel.Name = "pnlDeptItems26" Then
        iPanel.BringToFront()
    End If
End Sub

3. 验证面板名称正确性 #

确保btnPanelName的值与目标Panel的名称完全一致（注意大小写、后缀编号是否正确），避免因名称拼写错误导致无法定位面板。

内容的提问来源于stack exchange，提问作者Shawn Mulligan