创建 控件数组,并赋值
代码如下:  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块变量未设置“请问该如何修改?多谢!

解决方案 »

  1.   

    至少得在窗体上放一个你得SSPanel控件,index设成0
    然后再用
    load sspanel(1)
    sspanel(1).Caption ="222222
    sspanel(1).Width = Screen.Width
    sspanel(1).Left = 10
    sspanel(1).visible=true
    sspanel(1).zorder 0
    添加
      

  2.   

    如楼上的,首先要在窗体上要添加一个SSPanel控件,并将索引index设成0
    用 load 方法 动态添加新的控件,并将visible属性设为true可见
      

  3.   

    定义语言有问题,加个new应该就可以了
    Dim SSPanel9(1) As new SSPanel