VB.NET實現Singleton模式

Singleton模式:一個類只會建立一個執行個體。

下面的代碼用VB.NET實現了Singleton模式:Public Class SingletonClass Singleton

    Private Shared _Singleton As Singleton

    Private Shared _Mutex As New System.Threading.Mutex '同步基元也可用於進程間同步

    Private Sub New()Sub New()

    End Sub

    Public Shared Function GetInstance()Function GetInstance() As Singleton

        _Mutex.WaitOne() '當在衍生類別中重寫時，阻塞當前線程，直到當前的 System.Threading.WaitHandle 收到訊號

        Try
            If _Singleton Is Nothing Then
                _Singleton = New Singleton
            End If

        Finally
            _Mutex.ReleaseMutex() '釋放 System.Threading.Mutex 一次
        End Try

        Return _Singleton

    End Function

End Class