如何在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加载，Unload卸载

比如窗体上有Cmd1(0)

想加载Cmd1(1)就用 Load Cmd1(0),卸载就用 Unload Cmd1(0)

Unload只能卸载动态加载的控件，不能卸载设计时的控件，请注意这一点

觉得好就再加点分吧

经验证没有错误。。

Private Sub Form_Load()

Set Timer1 = Controls.Add("vb.timer", "Timer1")

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Timer

End Sub

---