publicSub showfrm()sub showfrm(byval frmname asString) Dim tt As Type = Type.GetType(frmname, True) Dim obj As ConstructorInfo = tt.GetConstructor(Type.EmptyTypes) Dim ttobj As Form = obj.Invoke(Nothing) ttobj.Show() End sub
posted on
2005-12-07 09:17明月清风路
阅读(1028)
评论(4)
编辑收藏举报