我知道一个笨方法.如果你已经有一个Textbox控件,选中它"复制"_"粘贴",会有提示你是否要创建控件数组.
然后你要用到其中一个时,用Load语句就可以。
Load X(6)
For i = 1 To 6
x(i).Left = 0
x(i).Top = 0
x(i).Width = 30
x(i).Height = 30
Next i
然后你要用到其中一个时,用Load语句就可以。
Load X(6)
For i = 1 To 6
x(i).Left = 0
x(i).Top = 0
x(i).Width = 30
x(i).Height = 30
Next i
load x(i)
x(i).Left = 0
x(i).Top = 0
x(i).Width = 30
x(i).Height = 30
Next i这样即可。
改进为:
Dim x(6) As new TextBox
在你的控件的窗口中设置INDEX为0
这样它就成了一个控件数组!!
例如生成一个cmdA(0)控件,
接着在form_load()或别的要调用的事件中这么做:
for i=1 to n'n是你想要的数量
load cmdA(i)
cmdA(i).Left=cmdA(i-1).Left+cmdA(i).Width
cmdA(i).Top=cmdA(0).Top+(i mod 6)*cmdA(i).Height
next i