解决MDI子窗体实例化的问题

机房收费系统进行有一段时间了，但是始终有些历史遗留问题。比如，如何MDI子窗体如何显示在上层的问题和MDI子窗体实例化的问题。

对于如何显示在上层的问题，这次采用的还是SetParent函数，在模块里面添加：

'定义一个用来设置子窗体的函数Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

接着，要解决的就是子窗体实例化的问题，然后查过一些方法之后，选择了单例模式。回过头去查自己当初学设计模式时的代码：

public partial class FormToolbox : Form{private static FormToolbox ftb = null; //声明一个静态的类变量private FormToolbox() //将构造放改成私有的，外部代码不能直接new来实例化它{InitializeComponent();}private void FormToolbox_Load(object sender, EventArgs e){}//得到类实例的方法，返回值就是本类对象，注意，此方法也是静态方法public static FormToolbox GetInstance(){if (ftb == null || ftb.IsDisposed){ftb = new FormToolbox();ftb.MdiParent = Form1.ActiveForm;}return ftb;}}

大的方针制定好之后，开始动手写。。

动手的时候，才会发现，学习的时候做的DEMON其实总是非常理想化的东西，实际中面临的问题往往更复杂。

复习了下设计模式之后，然后就开始写自己的VB.NET版本的了，为了解决窗体不美观的问题，这次还是加了容器空间，load的时候平铺窗体。

但是，每次子窗体弹出来，总是会闪一下，然后消失，再点击按钮，让子窗体弹出来，这下才会变正常。就像《超级破坏王》中的云妮洛普一样，

看起来就是程序中的BUG. 之后单步监视了很久，发现，调用setparent的时候，子窗体因为被前置，就会出现在主窗体的前面，但是在setparent之后，还是有了某某.Show（）方法，这就造成了一个矛盾，setparent刚将窗体置前，show方法又将窗体隐藏在主窗体和控件的夹层里面了，╮(╯▽╰)╭ 矛盾啊。改完这个之后，解决了闪现的问题。

还有单例的问题：

If IsNothing(checkBalance) Or checkBalance.IsDisposed Then '如果没有实例化

但是，每次运行到这里的时候就会出错：“未将对象的引用设置到对象的实例的问题”

细想下，刚刚声明的对象，，根本没有new，在这行这句话的时候，IsNothing值为true,然后它会接着调用IsDisposed,这时就会出现问题，因为checkBalance根本就是Nothing嘛~这时想起了以前学习C#的时候学到的一个逻辑短路的问题：C语言的“逻辑短路”

利用逻辑短路，可以很好的解决“未将对象的引用设置到对象的实例的问题”。

so,只需查查VB.NET的逻辑运算符，然后我找到了OrElse。。。

代码如下：

#Region "单例模式：用来判断本窗体是否已经实例化"Private Shared checkBalance As frmCheckBalance = Nothing '定义一个静态的类变量Private Sub New()' 此调用是 Windows 窗体设计器所必需的。InitializeComponent()' 在 InitializeComponent() 调用之后添加任何初始化。End SubPublic Shared Sub GetInstance() ' As frmCheckBalance '用来出现实例If IsNothing(checkBalance) OrElse checkBalance.IsDisposed Then '如果没有实例化'注意：1，要判断窗体是否已被实例化和窗体是否被销毁过（当关闭一个窗体时，资源被释放，但是并不是nothing）'2,orelse产生了逻辑短路的问题，如果这里用Or会产生错误，因为可能会引用不存在的对象。checkBalance = New frmCheckBalance '实例化checkbanlanceEnd IfcheckBalance.MdiParent = frmMain '设置父窗体checkBalance.Show()'显示窗体出来，但是此时子窗体还是被隐藏在下层的，必须要通过SetParent将它拿到上层来SetParent(checkBalance.Handle.ToInt64, frmMain.Handle.ToInt64) '设置窗体置前'Return checkBalance '返回End Sub#End Region

上面对单例模式有所改动，但是不影响单例模式的灵魂。

在主窗体里，只需调用sub 过程就好。

也会有想更换的念头。旅行，正好提供了这样一个机会，

相关文章：

你感兴趣的文章：

标签云：