方法一 可能没有什么实用性，只适合简单项目： Dim frmTmp As ClassForm "实现已经设计好了一个称作（类名为）ClassForm的表单 frmTmp = New ClassForm "在此定义它的一个实例
frmTmp.ShowDialog() "作为模式窗体显示 这样在当前窗体没有关闭以前，其他form上的菜单按钮都不可用，巧妙使用可以避免多次实例化的问题。 方法二 只适用于，form不是特别多，且多运行时占用内存没有特殊要求的场合 在项目运行时，分别定义每个可能用到的form的实例，但不显示，只有在需要显示的时候每次调用，x.show（x为想显示的form实例名），关闭的时候使用x.hide即可。 方法三 分别定义每个需要显示的form类的全局变量，在实际显示窗体前使用以下代码： If frm Is Nothing OrElse frm.IsDisposed Then frm = New Form1 frm.Show() Else frm.Activate() End If 方法四 本方法特别适用于多文档界面： Dim frmTmp As Form "搜索每个MDI子窗体一般打开的子窗体不会太多，所以不存在速度问题 For Each frmTmp In Me.MdiChildren "if 找到你想显示的ClassFrm窗体 If TypeOf frmTmp Is ClassFrm Then frmTmp.Activate() Exit Sub End If Next "如果MDI子窗体中没有你想显示的窗体 "则定义新的实例，并显示。 frmTmp = New ClassFrm400 frmTmp.MdiParent = Me frmTmp.Show()
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
