VB. NET Singleton Mode

Singleton mode: only one instance is created for a class.

The following Code The Singleton mode is implemented using VB. NET: Public   Class Singleton Class Singleton

Private   Shared _ Singleton As Singleton

Private   Shared _ Mutex As   New System. Threading. mutex ' The synchronization primitive can also be used for inter-process synchronization.

Private   Sub new () Sub New()

End sub

Public   Shared   Function getinstance () Function Getinstance () As Singleton

_ Mutex. waitone () ' When re-writing in a derived class, the current thread is blocked until the current system. Threading. waithandle receives the signal.

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

Finally
_ Mutex. releasemutex () ' Release System. Threading. mutex once
End   Try

Return _ Singleton

End Function

End Class