单例模式——解决MDI子窗体实例化的问题

前端之家收集整理的这篇文章主要介绍了单例模式——解决MDI子窗体实例化的问题前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。


机房收费系统进行有一段时间了,但是始终有些历史遗留问题。比如,如何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>


PS:代码里面还是一点点BUG,正在修改中,希望路过的高手们指点一二~

原文链接:https://www.f2er.com/vb/258021.html

猜你在找的VB相关文章