線程安全的 Singleton - Visual Basic

        大抵而言，Singleton 模式應該是設計模式中相當常用的一種了。它能夠節省寶貴的 CPU 或記憶體資源，避免不必要的建立對象開銷。然而，在多線程應用中，對于那些非線程安全的資料庫元件，傳統的 Singleton 将容易造成不穩定。如果使用 Synclock 進行同步，性能損耗可能将更大，特别在并發通路高的 ASP.net 應用中。

        前十幾天和裝配腦袋聊天的時候，他把 ThreadwiseSingleton 發給了我，我随後改寫成泛型類。事實上，它基于 Threadslot 建構，是以達到了線程隔離的效果。您需要傳入一個 Func(Of TResult) 完成初始化的工作。如果您的類中含有非托管資源，并無法預見可能的錯誤時，請使用一個 Try...Finally... 包裹将要運作的程式。同時感到抱歉的是，拖延了很久很久才發出來。

Imports System.Threading

''' <summary>

''' 一個線程隔離的 Singleton。

''' </summary>

Public Class ThreadwiseSingleton(Of T As IDisposable)

    Private Shared _Factory As Func(Of T)

    ''' <summary>

    ''' 擷取建構此執行個體的工廠類。

    ''' </summary>

    Public Shared Property Factory() As Func(Of T)

        Get

            Return _Factory

        End Get

        Set(ByVal value As Func(Of T))

            _Factory = value

        End Set

    End Property

    ''' 獲得線程中的唯一執行個體。

    Public Shared ReadOnly Property Instance() As T

            Dim threadSlot As LocalDataStoreSlot = Thread.GetNamedDataSlot(GetType(T).ToString)

            Dim threadSlotObj As Object = Thread.GetData(threadSlot)

            If threadSlotObj Is Nothing Then

                'Create singleton instance 

                Dim ins As T = Factory.Invoke

                Thread.SetData(threadSlot, ins)

                Return ins

            Else

                Return DirectCast(threadSlotObj, T)

            End If

    ''' 私有的構造函數。

    Private Sub New()

    End Sub

    ''' 釋放此 Singleton 執行個體使用的資源。請不要直接調用 Instance.Dispose()。

    Public Shared Sub Dispose()

        Instance.Dispose()

        '放空槽

        Dim threadSlot As LocalDataStoreSlot = Thread.GetNamedDataSlot(GetType(T).ToString)

        Thread.SetData(threadSlot, Nothing)

End Class