vb.net 面板控制循环问题

Question

我在 vb.net 中有一个循环，我想在其中显示 50 个面板，所有面板都具有相同的 3 个控件。只有最后一个控件填充了 3 个控件，这是为什么呢？

    Dim PanelVerticalPoint As Integer = btDF.Height * 6

    For counter = 1 To 50 Step +1

        Dim ButtonPanel As Panel = New Panel


        With ButtonPanel

            ButtonPanel.Location = New Point(0, PanelVerticalPoint)
            ButtonPanel.Size = New Size(btDF.Width, btDF.Height)
            Me.Controls.Add(ButtonPanel)

            ButtonPanel.Controls.Add(btCustomButtonMenu)
            ButtonPanel.Controls.Add(btCustomTextBox)
            ButtonPanel.Controls.Add(btCustomButton)

        End With


        PanelVerticalPoint = PanelVerticalPoint + btDF.Height


    Next counter

Answer 1

您必须为每个面板添加一个新的按钮实例。您正在向面板添加相同的按钮实例，因此每次添加实际上都是在移动按钮。

Answer 2

克隆控件并不容易。看起来您的情况可能适合用户控件。使用按钮和文本框在设计器中制作用户控件，然后只需创建用户控件的许多实例而不是面板。

这是一个与这种答案非常相似的问题 Clone Winform control