错在哪里
Private Sub AddNewForm(ByVal o As Object)
Dim newForm As New Form
Dim t As Type = o.GetType()
CType(newForm, t)
newForm.Show()
End Sub
提示我说t在上下文中不可访问,我想利用这个方法来实现用o的类型来初始化newForm
thank you so much!!!!!!!!!!!!!!!!
问题点数：20、回复次数：3Top
1 楼kssys（）回复于 2006-05-04 18:01:47 得分 10
这种打法不对吧？如此调用AddNewForm的时候岂不是要实例一个变量?
可以试试下面这种方法:
Private Sub AddNewForm(ByVal strName as string)
select case strName
case "Form1"
.....
case "Form2"
....
end select
End SubTop
2 楼cfreez（回再少帖子也有人不揭）回复于 2006-05-05 09:04:29 得分 5
private--->publicTop
3 楼drk928（一起看斜阳）回复于 2006-05-06 09:16:11 得分 5
Dim newForm As New Form
Form窗体实例存在吗?Top
