那个生成的动态控件要保存吗
如果要的话要怎么保存(是用load添加的控件)
thank you
版主我这个还是不懂啊 你帮我看以下 顺便帮我写一下load事件 谢谢 拜托了
Dim num
Private Sub Command1_Click()
num = num + 1
Load Picture0(num + 1)
Load Label1(num + 1)
Picture0(num + 1).Left = Picture0(num).Left + 1455
Picture0(num + 1).Top = Picture0(num).Top
Label1(num + 1).Left = Picture0(num + 1).Left
Label1(num + 1).Top = Picture0(num + 1).Top + 960
If Picture0(num + 1).Left > Me.Width Then
Picture0(num + 1).Left = 120
Label1(num + 1).Left = 120
Picture0(num + 1).Top = Picture0(num).Top + 1215
Label1(num + 1).Top = Label1(num).Top + 1215
If Picture0(num + 1).Top + 1445 > Me.Height Then
m = MsgBox("以添加到底层了,是否新建一容器?", vbOKCancel, "空间不足!")
End If
Else
Picture0(num + 1).Top = Picture0(num).Top
Picture0(num + 1).Left = Picture0(num).Left + 1320
End If
Picture0(num + 1).Visible = True
Picture0(num + 1).Picture = LoadPicture("")
Label1(num + 1).Visible = True
End Sub
Private Sub Form_Load()
Load Picture0()
Load Label1()
End Sub