＋设为首页 ＋添加到收藏夹
现设定一个控件，其index为0，在程序代码中，需要根据用户输入需要的数量，然后生成相应数量的控件集合。
比如，现只有一个txt控件，其index为0，在运行中，需要有7个极其相类似的txt控件，如何用代码直接生成另外6个相类似的txt控件。
谢谢各位！
使用LOAD方法！
给个例子给你看看！
If CInt(Txt_Number) <= 1 Or Txt_Number = "" Then Exit Sub
Dim i As Long
Dim myLeft As Single, my As Single, w As Single, h As Single
myLeft = Text1(0).Left: my = Text1(0).
w = Text1(0).Width: h = Text1(0).Height
For i = 1 To Text1.Count - 1
Unload Text1(i)
Next i
For i = 1 To CInt(Txt_Number) * CInt(Txt_Number) - 1
Load Text1(i) 加载用load,卸载用unload
If (i Mod CInt(Txt_Number)) = 0 Then
Text1(i).Left = Text1(0).Left
myLeft = Text1(i).Left
my = my + h + 100
Text1(i). = my
Text1(i).Visible = True
Else
Text1(i).Left = myLeft + w + 100
myLeft = Text1(i).Left
Text1(i). = my
Text1(i).Visible = True
End If
Next i
