以编程方式将控件添加到面板
问题描述:
我试图将一组四个单选按钮添加到窗体。还有其他的单选按钮,所以我通过将它们放在面板上进行分组。然而,使用下面的内容我只是将面板添加到没有单选按钮的窗体中...我在这里做错了什么?以编程方式将控件添加到面板
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)
答
.Size =新System.Drawing.Size(300,24)
有你的问题,你做的面板太小。第一个单选按钮的位置是(77,139),您必须将面板的高度设置为至少139 + 17 = 156以完整地查看它。
这是一个把这种代码正确的技巧。在解决方案资源管理器窗口中,找到“显示所有文件”图标并单击它。这显示了解决方案中的所有文件。节点出现在表单旁边。单击它并双击.Designer.vb文件。找到InitializeComponent()方法。当你放下窗体上的控件并设置它们的属性时,观察代码如何改变。复制并粘贴来自此的代码。
使用UserControl也很有用。
+0
+3:每个段落一个。 – AMissico 2010-07-12 11:21:41
答
你的问题是在这里:
你的设置是只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
你知道循环吗?这似乎效率很低.. – 2010-07-10 12:27:24