如何在vb.net里面动态添加控件

Private WithEvents NewTextBox As TextBox

'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

Private Sub Command1_Click()

If NewTextBox Is Nothing Then

Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)

NewTextBox.Move 200, 200

NewTextBox.Width = Form1.Width - 450

NewTextBox.Height = Form1.Height - 1400

NewTextBox.Visible = True

End If

End Sub

Private Sub Command2_Click()

If NewTextBox Is Nothing Then

Exit Sub

Else

Controls.Remove NewTextBox

Set NewTextBox = Nothing

End If

End Sub

可以使用Load方法

语法为:Load object

要求必须预先创建一个控件数组

例如，现在你已经创建了一个command的控件数组，它的name为cmd

(方法请自行百度)

开始的一个元素的调用方法为

Cmd1(0).属性

其中()内的为 *** 作元素的下标。只要Load对应的数组元素。即可完成元素的载入，载入成功后可以当做一个普通控件来 *** 作。

此时如果需要添加多个，请使用For循环+Load语句实现

For i=1 to 20

Load Cmd(i)

Cmd(i).visible=ture

....

....

next i

---