singletonパターン

シングルトンパターンというのはただ一つインスタンスを生成てきる。それにこのインスタンスを全体のシステムに提供する。

下記の例を参考して、シングルトンパターンの使用方法を学ぶ：

呼び出す方法：Singleton.Instance()

Public NotInheritable Class Singleton

    Shared m_instance As Singleton = Nothing

  ’生成メソッドプライベート化

    Private Sub New()

    End Sub

  ’一つインスタンスが存在すれば、もう一つを生成できない

    Public Shared Function　Instance() As Singleton

        Get

            If m_instance Is Nothing Then

                m_instance = New Singleton()

            End If

            Return m_instance

        End Get

    End Function

End Class