怎么让自动加载的image控件数组自动换行

Question

我想一行排列20个image数组，怎么样才能用程序自动的实现

Answer 1

补充一下，自动加载的image控件没有固定的数目怎么才能实现在加载的时候让他换行

Answer 2

指定控件的位置就行了，下面代码可以参考下，动态加载100个image，先需要创建一image数组Private Sub Command1_Click()
Dim i%
Image1(0).Move 100, 100
For i = 1 To 99
    Load Image1(Image1.UBound + 1)
    Image1(Image1.UBound).Move 100 + (Image1.UBound Mod 10) * Image1(0).Width + 20, 100 + (Image1.UBound \ 10) * Image1(0).Height + 20
    Image1(Image1.UBound).Visible = True
Next
End Sub

Answer 3

建议如果image在100以内，可以在设计的时候做好，然后运行时设置它们的可见性，毕竟image也不是很耗费系统资源，又方便省事。