在运行时将控件添加到用户控件的内部面板

Question

我有一个包含2个面板的用户控件。Panel1是Panel2的父级，因此Panel2被放置在Panel1容器中。现在，在运行时，我想将控件添加到我的用户控件中。这些新控件必须放置在Panel2内。使用myUserControl.Controls.Add添加控件通常会将新控件放入用户控件本身，而不是Panel2内部。我希望Panel2是运行时添加到用户控件的所有控件的默认容器。如何做到这一点？

Answer 1

您可以覆盖OnControlAdded，验证UC句柄是否已经创建(InitiaizeComponent()已经执行，因此在Designer中添加的所有子控件都已经添加到UC的Controls集合(，然后将新控件添加到Panel2.Controls集合：

Public Class MyUSerControl
Inherits UserControl
Protected Overrides Sub OnControlAdded(e As ControlEventArgs)
If IsHandleCreated AndAlso e.Control IsNot Panel1 Then
Panel2.Controls.Add(e.Control)
End If
MyBase.OnControlAdded(e)
End Sub
End Class

或者，您可以添加一个执行此操作的公共方法：

Dim btn1 = New Button() With {.Text = "Button1", .Name = "Button1"}
Dim btn2 = New Button() With {.Text = "Button2", .Name = "Button2"}
myUSerControl.AddControls(btn1)
' Or
myUSerControl.AddControls({btn1, btn2})

---

Public Class MyUSerControl
Inherits UserControl
Public Sub AddControls(ParamArray newControls As Control())
Panel2.Controls.AddRange(newControls)
End Sub
End Class