大话设计模式——单例模式（前奏）

客官°小女子只卖身不卖艺 2022-08-04 04:26 136阅读 0赞

作为大话设计模式中唯一只有一个类的设计模式——单例模式，它是怎么来的呢?

首先，得区分一下，单例模式是面向对象语言中出现的。面向对象语言实际上就是针对对象来编程，对象抽象出类，再抽象就是接口和抽象类。它与面向过程的编程方式不同。具体不同点看下面的小例子一：

一、

先定义好一个登录窗体frmLogin，一个测试窗体frmTest，测试窗体frmTest中创建一个按钮btnLogin。点击按钮，调出登录窗体。

下边是按钮btnLogin的click事件里的两种调用代码：

'第一种：面向过程的，把窗体直接使用
 frmLogin.Show()
 
 '第二种：面向对象的，把登录窗体当做类来使用，调用的时候先实例化
 Dim frmLogin1 As New frmLogin
 frmLogin1.Show()

第一种方法，按钮点击多次，只出现一个窗体。

但是它不是面向对象语言编程的思想，不予参考。

第二种方法，按钮点击多次，对应出现多个窗体。

![Center][]

二、

对应第二种方法，就出现一个问题——超生。我只需要一个窗体，但是却出来了这么多窗体。怎么解决呢？

我们可以在测试窗体里先声明一个全局变量frmLogin2，当我们在点击按钮btnLogin时，先进行判断，看frmLogin2是否已经实例化了。

Public Class frmTest
 Private frmLogin2 As frmLogin '定义一个frmLogin类型的对象 frmLogin2
 
 Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
 
 If frmLogin2 Is Nothing Then
 '第三种：面向对象的，把登录窗体当做类来使用，调用的时候先实例化
 frmLogin2 = New frmLogin
 frmLogin2.Show()
 End If
 End Sub
 End Class

跟第二种方法相比，它就解决了相应的问题。

三、

不过，现在的代码还不够完善，又出现了新的问题，即点击一次btnLogin按钮之后，调出了登录窗体frmLogin，关掉它，再点击一次btnLogin按钮，登录窗体没办法出现了。

这是因为实例化了一次全局变量，关闭窗体，vb.net的垃圾自动回收机制没有把全局变量frmLogin2给回收，内存中还存在它的值，也就是它现在还是被实例化的状态。因此不能进行第二次实例化。这个问题也好解决——在判断条件里增加一个条件，frmLogin2是否被释放。

If frmLogin2 Is Nothing Then
 '第三种：面向对象的，把登录窗体当做类来使用，调用的时候先实例化
 frmLogin2 = New frmLogin
 frmLogin2.Show()
 Else
 If frmLogin2.IsDisposed = True Then
 frmLogin2 = New frmLogin
 frmLogin2.Show()
 End If
 End If

如此，多个弹出框的问题以及关闭了就弹不出来的问题就解决了。

四、

这样就可以了吗？还不够~~~

我在菜单栏里添加一个菜单，也要实现调出登录窗体的功能，那么两份一样的代码就出现了。分别出现在btnLogin的click事件和menuLogin的click事件里。假如有十个地方要调用登录窗体，那么就会有十份相同的代码。一旦要修改，就要修改十个地方，代码的可维护性就下降了。怎么办呢？

我们是面向对象编程的一个重要思想就是抽象！重复的东西就给它抽象出来，以便重复使用。在这里就可以把btnClick里边的东西抽象出来到一个方法里。

<pre class="vb" name="code">Public Class frmTest
 Private frmLogin2 As frmLogin '定义一个frmLogin类型的对象 frmLogin2
 
 Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
 Call Login()
 End Sub
 '第四种：把重复的功能代码抽象到方法里，直接调用
 Private Sub Login()
 If frmLogin2 Is Nothing Then
 frmLogin2 = New frmLogin
 frmLogin2.Show()
 Else
 If frmLogin2.IsDisposed = True Then
 frmLogin2 = New frmLogin
 frmLogin2.Show()
 End If
 End If
 End Sub
 End Class

五、

还是那句话，现在的代码够好了吗？依旧不够~~~

这个方法本是控制登录窗体的实例化，那么它的代码却写在了测试窗体里，这样好吗？自己的事情自己干，单一职责原则。因此，单例模式要登场了。

多谢赏阅，后续请看下回分解，让我们在追求完美的道路上越来越远吧。

[Center]: /images/20220731/95cf76dfc3474643920ccfa339e24984.png