单例模式

        重构机房的时候用到了单例模式，在这里稍稍回顾一下。

        单例模式，顾名思义就是一个类只有一个实例，在机房收费系统中，主要是才子窗体实例化的时候用到。如果没有使用单例模式时代码是这样的：        

    Private Sub 修改密码ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 修改密码ToolStripMenuItem.Click
        Dim frm_ChangePWD As New frmChangePWD
        frm_ChangePWD.MdiParent = Me
        frm_ChangePWD.Show()        

    End Sub

               显示结果如下：

        

        这很显然是不符合要求的，那么怎么才能单击菜单的时候只实例化一个窗体呢？这就用到了单例模式。

        一、模式定义

        单例模式(Singleton Pattern)：单例模式确保某一个类只有一个实例，而且自行实例化并向整个系统提供这个实例，这个类称为单例类，它提供全局访问的方法。

        单例模式的要点有三个：

        ①是某个类只能有一个实例；

        ②是它必须自行创建这个实例；

        ③是它必须自行向整个系统提供这个实例

        二、模式结构

        

        三、模式分析

        单例模式的目的是保证一个类仅有一个实例，并提供一个访问它的全局访问点。单例模式的角色只有一个，就是单例类。

        私有构造函数：确保用户无法通过new关键字直接实例化它。

        静态私有成员变量：类自身的一个成员类。

        静态公有的工厂方法：负责检验实例的存在性并实例化自己，然后存储在静态成员变量中，以确保只有一个实例被创建。

        四、实现代码        

    Private Shared frm_ChangePWD As frmChangePWD  ’静态私有成员变量
    Private Sub New()'私有构造函数

        ' 此调用是设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。

    End Sub

    Public Shared Function GetInstance() As frmChangePWD’静态公有工厂方法，返回唯一实例
        If frm_ChangePWD Is Nothing OrElse frm_ChangePWD.IsDisposed Then'注意这里使用OrElse而不是or
            frm_ChangePWD = New frmChangePWD()
            frm_ChangePWD.MdiParent = frmMain
        End If
        Return frm_ChangePWD
    End Function

              

        客户端调用代码：        

Private Sub 修改密码ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 修改密码ToolStripMenuItem.Click
        '直接调用GetInstance方法即可
        frmChangePWD.GetInstance.Show()

    End Sub

     

           五、使用后效果如下