VB.NET还是比较常用的，于是我研究了一下VB.NET GroupBox控件，在这里拿出来和大家分享一下，希望对大家有用。
编程添加VB.NET GroupBox控件以及它所包含的控件.虽然VB.NET GroupBox控件是在设计时用视图设计布局效果最好，但是无可避免地，很多特殊情况下也是需要在运行做添加控件到控件组中的，这里我们就用代码来完成上图一界面的绘制。
动态添加控件一般需要经过下面三个步骤：
1、创建要添加的控件实例
2、设置新控件的属性。
3、将控件添加到父控件的 Controls 集合。
在Form1代码的任意位置增加初始化控件的过程InitializeControl（），代码如下所示：
- Sub InitializeControl（）
- '首先添加Label和TextBox控件
- Dim Label1 As New System.Windows.Forms.Label
- Dim TextBox1 As New System.Windows.Forms.TextBox
- 'Label1
- Label1.Location = New System.Drawing.Point（8， 8）
- Label1.Name = "Label1"
- Label1.Size = New System.Drawing.Size（64， 16）
- Label1.TabIndex = 1
- Label1.Text = "户主姓名"
- 'TextBox1
- TextBox1.Location = New System.Drawing.Point（72， 7）
- TextBox1.Name = "TextBox1"
- TextBox1.Size = New System.Drawing.Size（128， 21）
- TextBox1.TabIndex = 2
- TextBox1.Text = ""
- '把它们添加到父控件Form1的Controls集合中
- Me.Controls.Add（TextBox1）
- Me.Controls.Add（Label1）
- '添加三个GroupBox控件
- Dim GroupBox1 As New System.Windows.Forms.GroupBox
- Dim GroupBox2 As New System.Windows.Forms.GroupBox
- Dim GroupBox3 As New System.Windows.Forms.GroupBox
- 'GroupBox1
- GroupBox1.BackColor = System.Drawing.SystemColors.Control
- GroupBox1.Location = New System.Drawing.Point（8， 40）
- GroupBox1.Name = "GroupBox1"
- GroupBox1.Size = New System.Drawing.Size（96， 104）
- GroupBox1.TabIndex = 3
- GroupBox1.TabStop = False
- GroupBox1.Text = "性别"
- .......
把上一页的代码复制添加后，把控件初始化过程InitializeControl（）过程添加到Form1的New构造函数中就OK了。
【编辑推荐】
