vb.net 防止MDI子窗体被多次实例化的四种方法

方法一

可能没有什么实用性，只适合简单项目：

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()