Implémenté le Design Pattern Singleton avec les génériques.

Commenter

Contenu du snippet 

Public Class Singleton(Of T As New)
    Private Shared pInstance As T = Nothing
    Private Shared pLocker As Object = New Object()
    ''' <summary>
    ''' Propriété permettant de retourner une instance unique... l'instance de classe passée en paramètre.
    ''' </summary>
    ''' <returns>Référence unique ... l'instance de classe.</returns>
    Public Shared ReadOnly Property Instance() As T
        Get
            SyncLock (pLocker)
                If pInstance Is Nothing Then
                    pInstance = New T()
                End If
                Return pInstance
            End SyncLock
        End Get
    End Property
End Class

 

Compatibilité : VB 2005

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Aurazed)