【问】如何动态载入窗体？
比如：使用InputBox输入一窗体名（该窗体可能还未载入，或不存在）
如何做到类似 Load frmName 的样子，但这个frmName应该是一个变量
注明：是VB5 ，没有Control.Add功能！！！
[解决办法]
a=inputbox( "Please Input Form Name ")
select case a
case "Form1 "
Form1.Show
case "Form2 "
Form2.show
case ....
....
end select
上面只能加载已有的窗口类，并自动实例化。
dim frm as form
select case a
case "form1 "
set frm=new Form1
frm.show
case "form2 "
set frm=new Form2
frm.show
case ...
....
end select
上面可以显示一个已经存在的窗口类的多个实例。
[解决办法]
很长时间没用vb5了,不知道vb5是否支持forms.add语句,如果支持的话,用它就可以了,不支持的话,就要麻烦一些了
[解决办法]
Private Sub Command1_Click()
Dim t As Form
Set t = Forms.Add( "form2 ")
t.Show
End Sub
[解决办法]
………………
我是来开玩笑的，升级成VB6好了
[解决办法]
你测试过吗,我查资料说,vb5是支持 Forms.Add 的
[解决办法]
加一个ON ERROR RESUME NEXT 不就完事了...
[解决办法]
要载入的东西难道是根本就不存在的东西？
客户乱输入的东西能作为窗体类？
你要载入的东西肯定是存在这么一个类的，不过是由客户指定载入某个类并实例一个对象而已。如果要载入系统类库中根本不存在的类，别说VB5无法实现，VC也无法实现。总不能无中生有的给客户臆造一个出来吧。
而既然是已存在的，我上面的代码怎么会不能实现呢？
