vb如何动态创建一个textbox和撤销一个textbox

来源：百度知道 编辑：UC知道 时间：2024/05/04 10:13:38
已有textbox，如何动态创建更多的textbox和撤销（不是隐藏）这些textbox（撤销后遍历应该找不到。）。

Option Explicit
Dim x As Control
Private Sub Command1_Click()
'动态创建textbox
Set x = Me.Controls.Add("VB.textbox", "text", Me)
With x
.Width = 1000
.Height = 500
.Visible = True
.Left = 200
.Top = 100
End With
End Sub

Private Sub Command2_Click()
on error resume next
Me.Controls.Remove x '删除创建的textbox
End Sub

先拖一个textbox，名称text1，index设为0，（index一定要设）

加载textbox：
load text1（1）
load text1（2）
load text1（3）

卸载textbox：
unload text1（1）
unload text1（2）
unload text1（3）