Vb.net 以编程方式将子控件添加到用户控件

第一次创建自己的用户控件时，我遇到了问题。我想以编程方式创建子控件，而不是手动设置约480个控件。但是，在我的一个窗体中实现该控件时，我以编程方式创建的控件不会出现，即使我调用了Generate并成功运行了它。（使用断点检查）

以下是我所拥有的：

Imports Syncfusion.Windows.Forms.Tools

Public Class InfoGrid
Private _Quantities As CheckBox()
Private _Names As Label()
Private _Toggle As ToggleButton() ' From SyncFusion WinForms Library
Private Beleren As Font = New Font("Beleren", 10, FontStyle.Regular)
Private IDInset As Insets = New Insets(5, 5, 5, 5)
Private QuantityInset As Insets = New Insets(5, 5, 5, 5)
Private NameInset As Insets = New Insets(0, 5, 0, 5)
Private ToggleInset As Insets = New Insets(0, 0, 0, 0)

Public Property Quantities As CheckBox()
    Get
        Return _Quantities
    End Get
    Set(value As CheckBox())
        _Quantities = value
    End Set
End Property

Public Property Names As Label()
    Get
        Return _Names
    End Get
    Set(value As Label())
        _Names = value
    End Set
End Property

Public Property Toggles As ToggleButton()
    Get
        Return _Toggle
    End Get
    Set(value As ToggleButton())
        _Toggle = value
    End Set
End Property

Public Sub Generate()
    SuspendLayout()
    For i% = 2 To 31
        AddNewCtrls(i, vbNullString, False, i, i - 1)
        AddNewCtrls(i + 30, vbNullString, False, i + 4, i - 1)
        AddNewCtrls(i + 60, vbNullString, False, i + 8, i - 1)
        AddNewCtrls(i + 90, vbNullString, False, i + 12, i - 1)
    Next
    ResumeLayout()
    Refresh()
    PerformLayout()
End Sub

Public Function AddNewCtrls(IDNum%, CtrlName$, CtrlEnabled As Boolean, GridX%, GridY%)
    Dim NewCtrlQuantity As New CheckBox, NewCtrlID, NewCtrlName As New Label, NewCtrlToggle As New ToggleButton

    Try
        NewCtrlID.Font = Beleren
        NewCtrlID.Text = IDNum
        NewCtrlID.Tag = IDNum
        NewCtrlID.Name = "lbl" & IDNum
        NewCtrlID.TextAlign = ContentAlignment.MiddleCenter
        NewCtrlID.AutoSize = True
        gblMain.SetConstraints(NewCtrlID, New GridBagConstraints(GridX, GridY, 1, 1, 0R, 0R, AnchorTypes.Center, FillType.None, IDInset, 0, 0, False))

        NewCtrlQuantity.Text = "400"
        NewCtrlQuantity.Name = "cbCount" & IDNum
        NewCtrlQuantity.Tag = IDNum
        NewCtrlQuantity.FlatStyle = FlatStyle.Flat
        NewCtrlQuantity.Appearance = Windows.Forms.Appearance.Button
        NewCtrlQuantity.MaximumSize = New Size(60, 25)
        NewCtrlQuantity.MinimumSize = New Size(60, 25)
        NewCtrlQuantity.AutoSize = True
        gblMain.SetConstraints(NewCtrlQuantity, New GridBagConstraints((GridX + 1), GridY, 1, 1, 0R, 0R, AnchorTypes.Center, FillType.None, QuantityInset, 0, 0, False))

        NewCtrlName.Text = CtrlName
        NewCtrlName.Name = "lblAssign" & IDNum
        NewCtrlName.Tag = IDNum
        NewCtrlName.MaximumSize = New Size(160, 25)
        NewCtrlName.AutoSize = True
        NewCtrlName.AutoEllipsis = True
        NewCtrlName.TextAlign = ContentAlignment.MiddleCenter
        gblMain.SetConstraints(NewCtrlName, New GridBagConstraints((GridX + 2), GridY, 1, 1, 0R, 0R, AnchorTypes.Center, FillType.None, NameInset, 0, 0, False))

        NewCtrlToggle.Text = ""
        NewCtrlToggle.Name = "cbMask" & IDNum
        NewCtrlToggle.Tag = IDNum
        NewCtrlToggle.MaximumSize = New Size(25, 25)
        NewCtrlToggle.MinimumSize = New Size(25, 25)
        gblMain.SetConstraints(NewCtrlToggle, New GridBagConstraints((GridX + 3), GridY, 1, 1, 0R, 0R, AnchorTypes.Center, FillType.None, ToggleInset, 0, 0, False))

        Controls.AddRange(New Control() {NewCtrlID, NewCtrlQuantity, NewCtrlName, NewCtrlToggle})
    Catch ex As Exception
        LogException(ex)
        Return False
    End Try

    Return True
End Function
End Class

---

最有可能的是，它与控件的位置有关（代码未显示的内容）。例如，使用两个按钮，您可以执行类似于

button1.Location=new Point（0，0）

button2.Location=new Point（button1.Right+xGap，button1.Top）

的操作，也就是说，根据前一个（+所需间隙）定义每个控件的位置。或者，您可以在用户控件上使用

流布局面板

，当您将我们的控件添加到

流程布局面板时

将为您处理新控件的放置，因此您不必显式设置位置。抱歉，忘了提及。我使用的是SyncFusion的网格包布局，而不是流程布局面板。