机房收费系统进行有一段时间了，但是始终有些历史遗留问题。比如，如何MDI子窗体如何显示在上层的问题和MDI子窗体实例化的问题。
对于如何显示在上层的问题，这次采用的还是SetParent函数，在模块里面添加：
<span style="font-size:18px;"><span style="font-size:18px;"> '定义一个用来设置子窗体的函数 Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long,ByVal hWndNewParent As Long) As Long</span></span>
接着，要解决的就是子窗体实例化的问题，然后查过一些方法之后，选择了单例模式。回过头去查自己当初学设计模式时的代码：
<span style="font-size:18px;"> <span style="font-size:18px;">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; } }</span></span>
大的方针制定好之后，开始动手写。。
动手的时候，才会发现，学习的时候做的DEMON其实总是非常理想化的东西，实际中面临的问题往往更复杂。
复习了下设计模式之后，然后就开始写自己的VB.NET版本的了，为了解决窗体不美观的问题，这次还是加了容器空间，load的时候平铺窗体。
但是，每次子窗体弹出来，总是会闪一下，然后消失，再点击按钮，让子窗体弹出来，这下才会变正常。就像《超级破坏王》中的云妮洛普一样，
看起来就是程序中的BUG. 之后单步监视了很久，发现，调用setparent的时候，子窗体因为被前置，就会出现在主窗体的前面，但是在setparent之后，还是有了某某.Show（）方法，这就造成了一个矛盾，setparent刚将窗体置前，show方法又将窗体隐藏在主窗体和控件的夹层里面了，╮(╯▽╰)╭ 矛盾啊。改完这个之后，解决了闪现的问题。
还有单例的问题：
<span style="font-size:18px;"><span style="font-size:18px;">If IsNothing(checkBalance) Or checkBalance.IsDisposed Then '如果没有实例化</span></span>
但是，每次运行到这里的时候就会出错：“未将对象的引用设置到对象的实例的问题”
细想下，刚刚声明的对象，根本没有new，在这行这句话的时候，IsNothing值为true,然后它会接着调用IsDisposed,这时就会出现问题，因为checkBalance根本就是Nothing嘛~这时想起了以前学习C#的时候学到的一个逻辑短路的问题：C语言的“逻辑短路”
利用逻辑短路，可以很好的解决“未将对象的引用设置到对象的实例的问题”。
so,只需查查VB.NET的逻辑运算符，然后我找到了OrElse。。。
代码如下：
<span style="font-size:18px;">#Region "单例模式：用来判断本窗体是否已经实例化"
Private Shared checkBalance As frmCheckBalance = Nothing '定义一个静态的类变量
Private Sub New()
' 此调用是 Windows 窗体设计器所必需的。
InitializeComponent()
' 在 InitializeComponent() 调用之后添加任何初始化。
End Sub
Public Shared Sub GetInstance() ' As frmCheckBalance '用来出现实例
If IsNothing(checkBalance) OrElse checkBalance.IsDisposed Then '如果没有实例化
'注意：1，要判断窗体是否已被实例化和窗体是否被销毁过（当关闭一个窗体时，资源被释放，但是并不是nothing）
' 2,orelse产生了逻辑短路的问题，如果这里用Or会产生错误，因为可能会引用不存在的对象。
checkBalance = New frmCheckBalance '实例化checkbanlance
End If
checkBalance.MdiParent = frmMain '设置父窗体
checkBalance.Show() '显示窗体出来，但是此时子窗体还是被隐藏在下层的，必须要通过SetParent将它拿到上层来
SetParent(checkBalance.Handle.ToInt64,frmMain.Handle.ToInt64) '设置窗体置前
'Return checkBalance '返回
End Sub
#End Region</span>
上面对单例模式有所改动，但是不影响单例模式的灵魂。
在主窗体里，只需调用sub 过程就好。
<span style="font-size:18px;"> Private Sub checkBalanceMenu_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles checkBalanceMenu.Click
frmCheckBalance.GetInstance()
End Sub</span>