singleton.vb

来自「C#高级编程第6版随书源代码 值得下载」· VB 代码 · 共 25 行

Imports System
Imports System.Collections.Generic
Imports Message = System.Messaging

Namespace Wrox.ProCSharp.Languages
End Namespace


Public Class SomeData

End Class

Public Class Singleton
    Private Shared d As SomeData

    Public Shared Function GetData() As SomeData
        If d Is Nothing Then
            d = New SomeData()
        End If
        Return d

    End Function

End Class