Posted By

DaveChild on 09/11/08

Tagged

class Singleton

Versions (?)

Advertising

Who likes this?

2 people have marked this snippet as a favorite

Scooter
chavcho

VB.NET Singleton Class

Published in: VB.NET

URL: http://www.ondotnet.com/pub/a/dotnet/2002/11/11/singleton.html

Expand | Embed | Plain Text

Public Class ClassName
 
    Private Shared objClassName As ClassName
    Private Shared blnClassAlreadyCreated As Boolean = False
 
    Private Sub New()
    End Sub
 
    Public Shared Function setupClass() As ClassName
        If blnClassAlreadyCreated = False Then
            objClassName = New ClassName()
            blnClassAlreadyCreated = True
        End If
        Return objClassName
    End Function
 
End Class

Report this snippet

Comments

Subscribe to comments

Posted By: DaveChild on September 12, 2008

To create a new instance of this object:

Public ClassNameInstance As ClassName = ClassName.setupClass()

Comment:

You need to login to post a comment.