如果动态的根据窗体名,生成新的窗体实例,如Set frm=new "Form1"
当然,我知道这句不能正常运行,但我想达到类似的效果应该怎么办?
本以为Set frm=CreateObject("Form1")可以,但结果也不行.求助!

解决方案 »

  1.   

    Dim frm As Form, f As Form
    For Each f In Forms
        If f.Name = "Form3" Then
            Set frm = New f
            f.Show
        End If
    Next f
    本来以为这样行,结果也不行! -_-!!
      

  2.   

    dim frm as from 
    set frm = forms.add("form1")
    frm.show
      

  3.   

    dim a as form 
    set a=new form1
    a.show
      

  4.   

    必须你要有个form1的实例
    然后以这个实例就可以生成新窗口了
    你没看过mdi多窗口的一个代码吗?
      

  5.   

    如果动态的根据窗体名,生成新的窗体实例,如Set frm=new "Form1"
    -------
    pcwe2002() ( ) 方法是可行的,楼主的意思是根据窗体名称动态生成实例, 就是把name作为字符串变量传送private sub NewInstance(byval frmName as string )
    dim frm as from 
    set frm = forms.add(frmName) 
    frm.show
    end sub 
      

  6.   

    dim frm as form 
    set frm = forms.add(frmName) 
    frm.show
      

  7.   

    老鼠不错。 同一个form的全局变量是共享的。 要注意这个问题。
      

  8.   

    pcwe2002() 的方法可行,学习。