vb.net - 以编程方式向面板添加控件

Question

我正在尝试将一组四个单选按钮添加到表单中。还有其他单选按钮，因此我通过将它们放在面板上来对它们进行分组。但是，使用下面的方法，我只是将面板添加到表单中，而没有单选按钮...我在这里做错了什么吗？

Dim arrRButton(3) As RadioButton
arrRButton(0) = New RadioButton
arrRButton(1) = New RadioButton
arrRButton(2) = New RadioButton
arrRButton(3) = New RadioButton           

With arrRButton(0)
  .AutoSize = True
  .Checked = True
  .Location = New System.Drawing.Point(77, 139)
  .Name = "RadioButton5"
  .Size = New System.Drawing.Size(55, 17)
  .TabIndex = 48
  .TabStop = True
  .Text = "NEAR"
  .UseVisualStyleBackColor = True
End With
'.... etc

'Panel2
Dim Panel2 As New Panel
With Panel2
  .Controls.Add(arrRButton(0))
  .Controls.Add(arrRButton(1))
  .Controls.Add(arrRButton(2))
  .Controls.Add(arrRButton(3))
  .Location = New System.Drawing.Point(61, 130)
  .Name = "Panel2"
  .Size = New System.Drawing.Size(300, 24)
End With

Me.Controls.Add(Panel2)

Answer 1

.Size = New System.Drawing.Size(300, 24)

这是你的问题，你把面板弄得太小了。第一个单选按钮的位置位于 (77, 139)，您必须将面板的高度至少设置为 139 + 17 = 156 才能看到完整的内容。

这里有一个技巧可以让这种代码正确。在“解决方案资源管理器”窗口中，找到“显示所有文件”图标并单击它。这显示了解决方案中的所有文件。您的表单旁边会出现一个节点。单击它并双击 .Designer.vb 文件。找到 InitializeComponent() 方法。当您将控件放在窗体上并设置其属性时，观察此代码如何变化。复制并粘贴此代码。

使用 UserControl 也很有用。