以編程方式將控件添加到面板

我試圖將一組四個單選按鈕添加到窗體。還有其他的單選按鈕，所以我通過將它們放在面板上進行分組。然而，使用下面的內容我只是將面板添加到沒有單選按鈕的窗體中...我在這裏做錯了什麼？以編程方式將控件添加到面板

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

以編程方式將控件添加到面板

回答

相關問題