动态添加复选框到组框答案

【问题标题】：Dynamically add checkboxes to groupbox动态添加复选框到组框
【发布时间】：2014-02-28 02:38:17
【问题描述】：

我正在尝试根据数据表中的行数动态地将复选框添加到分组框中。当循环通过时，我得到了我的第一个结果，但我无法获得下一个结果来显示......这是我的代码

Dim q As String
    Dim qt As DataTable
    Dim gbHeight As Integer = 40
    Dim checkHG As Integer = 5
    Dim checkHN As Integer = 5


    q = "Select * from loads where filenumber = " & Shipments2.txtFileNumber.Text
    qt = GetSQL(q)


    For i = 0 To qt.Rows.Count - 1
        Dim items As New List(Of LoadDetails)
        Dim ld As New LoadDetails

        items = ld.GetListBySQL("select * from loadDetails where LoadNumber = " & qt.Rows(i).Item("id"))
        For Each item As LoadDetails In items
            Dim checkgross = New CheckBox
            Dim checknet = New CheckBox
            gbHeight += 20

            'add checkbox control to form
            checkgross.Location = New Point(40, checkHG + 20)
            checkgross.Text = item.Description & " (Gross)"
            checkgross.Size = New Size(250, 20)
            checkgross.Name = item.ProductCode.ToString & "-gross"


            gbGross.Size = New Size(329, gbHeight)
            gbGross.Controls.Add(checkgross)


            rbPrintingNet.Location = New Point(rbPrintingNet.Location.X, rbPrintingNet.Location.Y + 40)

            checknet.Location = New Point(40, checkHN + 20)
            checknet.Text = item.Description & " (Net)"
            checknet.Size = New Size(250, 20)
            checknet.Name = item.ProductCode.ToString & "-net"

            gbNet.Location = New Point(44, rbPrintingNet.Location.Y + 25)
            gbNet.Size = New Size(329, gbHeight)
            gbNet.Controls.Add(checknet)

            Me.Size = New Size(Me.Size.Width, Me.Size.Height + 50)


        Next
    Next

【问题讨论】：

标签： vb.net checkbox groupbox

【解决方案1】：

您的所有控件都直接位于彼此之上：

checkgross.Location = New Point(40, checkHG + 20)

因为checkHG 永远不会改变。更改每个动态控件的 Location()...

【讨论】：

您可以在 GroupBox 中添加一个停靠的 FlowLayoutPanel，这样您就不必担心显式设置每个动态控件的 Location()。