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 本来以为这样行,结果也不行! -_-!!
dim frm as from set frm = forms.add("form1") frm.show
dim a as form set a=new form1 a.show
必须你要有个form1的实例 然后以这个实例就可以生成新窗口了 你没看过mdi多窗口的一个代码吗?
如果动态的根据窗体名,生成新的窗体实例,如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
dim frm as form set frm = forms.add(frmName) frm.show
For Each f In Forms
If f.Name = "Form3" Then
Set frm = New f
f.Show
End If
Next f
本来以为这样行,结果也不行! -_-!!
set frm = forms.add("form1")
frm.show
set a=new form1
a.show
然后以这个实例就可以生成新窗口了
你没看过mdi多窗口的一个代码吗?
-------
pcwe2002() ( ) 方法是可行的,楼主的意思是根据窗体名称动态生成实例, 就是把name作为字符串变量传送private sub NewInstance(byval frmName as string )
dim frm as from
set frm = forms.add(frmName)
frm.show
end sub
set frm = forms.add(frmName)
frm.show