机房收费系统中对于许多的窗体弹出式都使用到了单例模式，本次就正在值班教师这一用例来说明单例模式的使用。
优点：保证一个类仅有一个实例，并提供一个访问它的全局访问点。
Public Class frmWorkingTeacher’静态变量 fwt，窗体类型Private Shared fwt As frmWorkingTeacher = Nothing’定义一个私有构造函数，，外部不能通过代码直接new来实例化。Private Sub New()End Sub’通过本类下 方法来实现 newPublic Shared Function GetInstance() As frmWorkingTeacherIf fwt Is Nothing OrElse fwt.IsDisposed = True Thenfwt = New frmWorkingTeacherfwt.MdiParent = frmMain.ActiveFormEnd IfReturn fwtEnd FunctionEnd Class
我们的单例模式如图：
具体代码结构：
Public Class SingletonPrivate Shared instance As SingletonPrivate Sub New()End SubPublic Shared Function GetInstance() As SingletonIf instance Is Nothing Theninstance = New SingletonEnd IfReturn instanceEnd FunctionEnd Class
通过其他类调用该类的方法即可显示我们单例类。
夺冠那一刻,豪情万丈!登顶那一瞬,万众瞩目!那一刻的嫣然一笑,
