3

我在 Windows 窗体应用程序设计中遇到了一个有趣的问题，我在解决时遇到了一些困难。我目前正在开发一个程序，该程序应该是我公司使用的某个清单的数字替代品。这应该很简单，但是程序应该使用 SQL 数据库的内容来确定程序的清单中应该包含哪些项目（以便于更改清单中的项目）。这意味着我必须使用代码而不是我的 Visual Studio 2010 设计器来动态设计和创建我的大部分应用程序。

我已经能够弄清楚 SQL 的东西，甚至大多数动态设计的东西，但是有一个复杂的问题我似乎无法解决。为了创建清单的外观，我动态地创建了一个具有两列和一行的 TableLayoutPanel。然后，我从数据库中获取我的数据并创建一个组框，该组框的标题是使用该程序的人需要执行的指令。我还根据数据库条目将带有标签、复选框或两者的文本框添加到组框。最后，我将文本框、标签和/或复选框添加到 groupbox，然后将一行添加到我的表中，并将 groupbox 添加到该行的表中。但是，组框中的所有控件都混入了行的左上角，因此我尝试使用它们的 .location 属性来调整它们的组织。很遗憾，在我更改该属性的那一刻，受影响的控件从表单中完全消失。我尝试使用 .bringtofront() 方法但没有成功；控件仍然丢失。

我正在寻找的是有关如何在动态创建的分组框（或任何其他分组控件）中组织动态创建的控件的指南，该分组框本身包含在另一个动态创建的分组控件中。我非常感谢我能得到的任何帮助；这个问题使我无法着手处理程序的功能。适用的代码发布在下面。提前致谢！

Private Sub addItem(ByVal count As Integer, ByVal itemList As List(Of checklistField))
    If itemList(count).hasTextbox Or itemList(count).hasCheckbox Then
        Dim newGroupbox As New GroupBox
        With newGroupbox
            .Dock = DockStyle.Fill
            .Text = itemList(count).instruction
        End With

        If ((itemList(count).hasTextbox = True) And (itemList(count).hasCheckbox = False)) Then
            Dim newTextboxLabel As New Label
            With newTextboxLabel
                .Text = itemList(count).textboxLabel
                '.Location = New Point(20, (475))
                .AutoSize = True
            End With

            Dim newTextbox As New TextBox
            With newTextbox
                .Name = "Textbox" & count.ToString
                .Size = New Size(100, 20)
                '.Location = New Point(100, (470 + (10 * count)))
            End With

            textboxList.Add(newTextbox)
            newGroupbox.Controls.Add(newTextboxLabel)
            newGroupbox.Controls.Add(newTextbox)

            tblFields.RowCount += 1
            tblFields.RowStyles.Add(New RowStyle(SizeType.AutoSize))
            tblFields.Controls.Add(newGroupbox, 0, tblFields.RowCount - 1)
4

1 回答 1

2

您注释掉的 Location 属性的 Y 值设置得太高，因此控件在表单上不可见：

'.Location = New Point(20, (475))
'.Location = New Point(100, (470 + (10 * count)))

控件的位置与父级的客户空间有关，因此请使用较小的数字：

With newTextboxLabel
  .Text = itemList(count).textboxLabel
  .Location = New Point(20, 20)
  .AutoSize = True
End With

Dim newTextbox As New TextBox
With newTextbox
  .Name = "Textbox" & count.ToString
  .Size = New Size(100, 20)
  .Location = New Point(20, 40)
End With
于 2013-08-01T15:28:47.993 回答