如何建立控件数组？

QmStar 2003-03-16 01:19:26

窗体上有一个Picture控件，Picture中有一个Label控件，该Picture和Label都是控件数组，请问用语句怎么创建同样的控件数组，即Label在Picture中。

...全文

31 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

fangboy 2003-03-16

打赏
举报

Dim i As Long
Dim j As Long

i = Picture1.Count
Load Picture1(i)

' 下面这两句是为了测试时看得到新加载的Picture1用的
' Picture1(i).Left = Picture1(i).Left + 1200
' Picture1(i).Top = Picture1(i).Top + 1200

Picture1(i).Visible = True

j = Label1.Count
Load Label1(j)
Label1(j).Visible = True

Set Label1(j).Container = Picture1(i)

每次执行以上的这段代码，将新建一组PictureBox和Label的控件组合。