Binaryworld - Singleton Design Patten in VB.NET ... [ VB.net -> .Net Framework ]

The Singleton pattern ensures that only one instance of a class is created. All objects that use an instance of that class use the same instance. This is the most common design pattern, and easy to implement, but very powerful when used properly.

Click here to copy the following block

Imports System.Threading

Namespace Abstractvb.DesignPatterns

  Public Class Singleton

    Private Shared _singleton As Singleton

    Private Shared _mu As New Mutex()

    Private Sub New()

    End Sub

    Public Shared Function GetInstance() As Singleton

      _mu.WaitOne()

      Try
        If _singleton Is Nothing Then
          _singleton = New Singleton()
        End If

      Finally
        _mu.ReleaseMutex()
      End Try

      Return _singleton

    End Function

  End Class

End Namespace