Private Sub Form_ load()
Dim i As Integer
For i = 1 To 5
Load Option1(i) ' 给数组添加 5 个选项按钮。
Option1(i).Top = Option1(i - 1).Top + 350’设置顶端位置
Option1(i).left= Option1(i - 1).left+800
Option1(i).Visible = True’显示增加的控件
Option1(i).caption = i
Next i
End Sub 1。添加完成了,现在我想要刷新一次,有什么办法(添加的控件可能是img,所以有可能需要刷新)
2。如果用 重新删除, 再重新动态加载控件的方式。可是怎么删除这些动态创建的控件呢???
Dim i As Integer
For i = 1 To 5
Load Option1(i) ' 给数组添加 5 个选项按钮。
Option1(i).Top = Option1(i - 1).Top + 350’设置顶端位置
Option1(i).left= Option1(i - 1).left+800
Option1(i).Visible = True’显示增加的控件
Option1(i).caption = i
Next i
End Sub 1。添加完成了,现在我想要刷新一次,有什么办法(添加的控件可能是img,所以有可能需要刷新)
2。如果用 重新删除, 再重新动态加载控件的方式。可是怎么删除这些动态创建的控件呢???
1.refresh ?我可能整个刷新(也就是说,可能加载的数量都不同了!)2。我用unload 这些 load来的控件,提示我不能用unload??怎么回事?能否说的明白点??
2. 具体提示是什么?
Option Explicit
Dim i As LongPrivate Sub Command1_Click() For i = 1 To 10
Load Text1(i)
Text1(i).Move 0, i * Text1(0).Height
Text1(i).Visible = True
Next
End SubPrivate Sub Command2_Click()
For i = 1 To 10
Unload Text1(i)
Next
End Sub