以编程方式将控件添加到面板

我试图将一组四个单选按钮添加到窗体。还有其他的单选按钮，所以我通过将它们放在面板上进行分组。然而，使用下面的内容我只是将面板添加到没有单选按钮的窗体中...我在这里做错了什么？以编程方式将控件添加到面板

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)

来源

2010-07-10 madlan

你知道循环吗？这似乎效率很低.. – 2010-07-10 12:27:24

如果你想一组单选按钮添加到窗体，使用RadioButtonGroup，不是单选按钮的数组。

来源

2010-07-10 12:25:55 Oded

.Size =新System.Drawing.Size（300，24）

有你的问题，你做的面板太小。第一个单选按钮的位置是（77，139），您必须将面板的高度设置为至少139 + 17 = 156以完整地查看它。

这是一个把这种代码正确的技巧。在解决方案资源管理器窗口中，找到“显示所有文件”图标并单击它。这显示了解决方案中的所有文件。节点出现在表单旁边。单击它并双击.Designer.vb文件。找到InitializeComponent（）方法。当你放下窗体上的控件并设置它们的属性时，观察代码如何改变。复制并粘贴来自此的代码。

使用UserControl也很有用。

来源

2010-07-10 14:38:20

+3：每个段落一个。 – AMissico 2010-07-12 11:21:41

-1

你的问题是在这里：

你的设置是只button(0)，改正它！

for n=0 to 3 
With arrRButton(n) 
    .AutoSize = True 
    .Checked = True 
    .Location = New System.Drawing.Point((55*n) +5, 5) ' 
    .Name = "RadioButton5"+ n.tostring() 
    .Size = New System.Drawing.Size(55, 17) 
    .TabIndex = 48 
    .TabStop = True 
    .Text = "NEAR" 
    .UseVisualStyleBackColor = True 
    End With 

next

来源

2015-03-16 09:11:07 artan

以编程方式将控件添加到面板

回答

相关问题