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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 980 fois - Téléchargée 7 fois

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

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.