我的主要课程有以下功能:
sub openform(formnum as integer)
dim obj as Form
select case formnum
case 0
obj=new form0
case 1
obj=new form1
case 2
obj=new form2
case 3
obj=new form3
end select
obj.showdialog()
end sub
所以param'formnum
'将来自命令行args。
将来我可能有1000个表格,所以我需要写1000个案例来打开所需的表格。
除此之外,还有其他方法可以打开表单吗?
类似的东西:
dim obj as form=application.findforms("form" & formnum)
obj.showdialog()
答案 0 :(得分:1)
也许这会有用吗?
Dim f As Form = DirectCast(Activator.CreateInstance(Me.GetType().Assembly.FullName, "[namespace].form" & formnum), Form)
f.ShowDialog()