Dim i As Long
Dim x As Long, y As Long
x = Picb1(0).Left '初始位置
y = Picb1(0).Top
Const 每行个数 = 100
For i = 1 To 9999
Load Picb1(i)
If i Mod 每行个数 = 0 Then '计算位置,按是否换行分二种情况
x = Picb1(0).Left
y = Picb1(0).Top + Int(i \ 每行个数) * Picb1(0).Height + Screen.TwipsPerPixelY
Else
x = x + Picb1(0).Width + Screen.TwipsPerPixelY
End If
Picb1(i).Move x, y '移动位置
Picb1(i).Visible = True '显示
Picb1(i).Print i '在里面显示一个序号
Next i
窗体上先放一个 PictureBox ,命名为 picb1 ,然后index 属性里写一个0
这个控件的位置决定了这个阵列的左上角位置,它的大小决定这个阵列每个控件的大小
每个控件之间 空一个 像素,如果不打算空,则把 Screen.TwipsPerPixelX、Screen.TwipsPerPixelY 这个值清掉。
----------------------------------
10000个控件,你有多么强大的CPU ?
你打算干什么用?难道不能在一个控件里完成??
[此贴子已经被作者于2018-5-1 09:48编辑过]