创建 控件数组,并赋值
代码如下: Dim SSPanel9(1) As SSPanel
For i = 0 To 1
SSPanel9(0).Caption ="222222"
SSPanel9(0).Width = Screen.Width
SSPanel9(0).Left = 10
Next 程序执行到 SSPanel9(0).Caption ="222222" 到语句出错
提示”对象变量或With块变量未设置“请问该如何修改?多谢!
代码如下: Dim SSPanel9(1) As SSPanel
For i = 0 To 1
SSPanel9(0).Caption ="222222"
SSPanel9(0).Width = Screen.Width
SSPanel9(0).Left = 10
Next 程序执行到 SSPanel9(0).Caption ="222222" 到语句出错
提示”对象变量或With块变量未设置“请问该如何修改?多谢!
然后再用
load sspanel(1)
sspanel(1).Caption ="222222
sspanel(1).Width = Screen.Width
sspanel(1).Left = 10
sspanel(1).visible=true
sspanel(1).zorder 0
添加
用 load 方法 动态添加新的控件,并将visible属性设为true可见
Dim SSPanel9(1) As new SSPanel