克隆FlowPanel中的面板

Question

我试图多次克隆FlowPanel内部的一个面板.但它只克隆了一次。

Dim NewFormConta1 As New Panel
NewFormConta1 = Panel1
PanelLateral.Controls.Add(NewFormConta1)

Dim NewFormConta2 As New Panel
NewFormConta2 = Panel1
PanelLateral.Controls.Add(NewFormConta2)

Dim NewFormConta3 As New Panel
NewFormConta3 = Panel1
PanelLateral.Controls.Add(NewFormConta3)

结果：

​

​

我需要的是：

​

​

Answer 1

因为这些作业是参考作业

NewFormConta1 = Panel1
NewFormConta2 = Panel1
NewFormConta3 = Panel1

所以你的“新”面板都引用同一个面板。您只有一个面板，但有4个引用它。

' NewFormConta1 is a new panel
Dim NewFormConta1 As New Panel

' NewFormConta1 points to Panel1 so the new panel from the first line
' is not referenced anymore and will be garbage collected
NewFormConta1 = Panel1

' Panel1 is really added
PanelLateral.Controls.Add(NewFormConta1)

如何填充Panel1？您可以以相同的方式填充每个NewFormConta。

或者另一个想法是制作一个用户控件，其中包含一个面板和标签。可以在“用户控件”中使用“公共属性”修改标签属性。那就这么做

Dim NewFormConta1 As New UserControl1
PanelLateral.Controls.Add(NewFormConta1)