自从.net把每个设计form都当作一个类来处理后,相信很多习惯了vb6.0的兄弟姐妹们,一时半会还真不适应,可能会出现莫名其妙的问题,本篇为在下《.net环境下开发》的第二篇,如何防止窗体被多次实例化。问题发现方法:一个菜单项显示一个非模化form,连续点击两次,就会同时显示两个实体。本篇文章只列出可行的四种方法,仅供大家参考。 方法一: 可能没有什么实用性,只适合简单项目: 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() 以上,欢迎大家提出宝贵意见或者其他好的方法。