Public Class Singleton
Private Shared SP As Singleton
Private InnerList as New Collections.ArrayList()
Private Sub New()
End Sub
Public Shared Function Create() As Singleton
If SP is Nothing Then SP = New Singleton()
Return SP
End Function
Public ReadOnly Property List As Collections.ArrayList
Get
Return InnerList
End Get
End Property
End Class
Module SingletonExample
Sub Main
Dim CountValue as Integer
Dim SP As Singleton = Singleton.Create()
Dim SP2 As Singleton = Singleton.Create()
SP.List.Add("First")
SP.List.Add("Second")
SP.List.Add("Third")
For CountValue = 0 To SP2.List.Count - 1
Console.WriteLine(SP2.List.Item(CountValue).ToString())
Next
End Sub
End Module
|