动态增加窗体,将窗体做为数组,超高难度

[ccbl]

用代码生成窗体做起来实在是太麻烦,有没有知道,我做好一个窗体采用类似load object方式,就是窗体本身是个数组.各位大虾有知道的吗?

[嗷嗷叫的老马]

我来拿这100分,HOHO

'类模块Class1
public withevents theForm as form

'在类里面处理事件

'窗体中,设已经有一个做好的源窗体frmSource,用于LOAD
'公共区声明
dim myFormArr() as class1   

private sub form_load()
    redim myformarr(0)
end sub

private sub command1_click()
    dim I as long

    i=-1
    do while i<=100
        i=i+1
        redim preserve myformarr(i)
        set myformarr(i).theform=new frmSource   '加载并赋值
    loop 
end sub

private sub command2_click()
    '全部显示或隐藏
     dim I as long,J as boolean

    j=not myformarr(0).theform.visable   '所有窗体与第一个窗体对象的显示与隐藏属性相同
    for i=0 to ubound(myformarr)
        myformarr(i).theform.visable=j
    next
end sub

反正思路大约是这样,如果有些地方打错了你应该能调试出来......

[ccbl]

非常感谢,我试试

[ccbl]

set myformarr(i).theform=new frmSource '加载并赋值

我生成了一个form2
set myformarr(i).theform=new form2
但报91错误,对象变量没有设置

[嗷嗷叫的老马]

哈,redim preserve myformarr(i)这一句只是扩维,里面的CLASS1对象并没有被实例化,当然会出错

后面还要再加一句:

set myformarr(i)=new class1

没在IDE里调试,所以应该会有错误......你可以自己调一下嘛

[ccbl]

谢谢,其实很简单,多谢你的提示,我已经搞定

[嗷嗷叫的老马]

其实很多时候就是求一个思路....

这个就是在论坛里混的好处,可以得到很多好的思路...

这方法好象是在某帖里阿勇的代码里学来的:)