VB.NET 单例模式

Imports BusinessFacade.Facade

''' <summary>
''' HNA platform in the facade
''' Feihu Huang 2010-01-12
''' </summary>
''' <remarks></remarks>
Public Class HNAPlatform

    '构造函数
    Private Sub New()
    End Sub

    '当前类唯一对象
    Private Shared Instance As New HNAPlatform()

    '具体Facade对象
    Private ReadOnly _billFacade As New BillFacade

    Private ReadOnly _reserveFacade As New ReserveFacade

    Private ReadOnly _memberFacade As New MemberFacade

    'Private ReadOnly _backGroundFacade As New BackGroundFacade

    Private ReadOnly _systemFacade As New SystemFacade

    Private ReadOnly _roomFacade As New RoomFacade

    Private ReadOnly _typeFacade As New TypeFacade

    Private ReadOnly _consumeFacade As New ConsumeFacade

    Private ReadOnly _userFacade As New UserFacade

    'Private ReadOnly _accessFacade As New AccessFacade

    Private ReadOnly _phoneFacade As New PhoneFacade

    Public Shared ReadOnly Property PhoneFacade() As PhoneFacade
        Get
            Return Instance._phoneFacade
        End Get
    End Property

    Public Shared ReadOnly Property BillFacade() As BillFacade
        Get
            Return Instance._billFacade
        End Get
    End Property

    Public Shared ReadOnly Property ReserveFacade() As ReserveFacade
        Get
            Return Instance._reserveFacade
        End Get
    End Property

    Public Shared ReadOnly Property MemberFacade() As MemberFacade
        Get
            Return Instance._memberFacade
        End Get
    End Property

    'Public Shared ReadOnly Property BackGroundFacade() As BackGroundFacade
    '    Get
    '        Return Instance._backGroundFacade
    '    End Get
    'End Property

    Public Shared ReadOnly Property SystemFacade() As SystemFacade
        Get
            Return Instance._systemFacade
        End Get
    End Property


    Public Shared ReadOnly Property RoomFacade() As RoomFacade
        Get
            Return Instance._roomFacade
        End Get
    End Property

    Public Shared ReadOnly Property TypeFacade() As TypeFacade
        Get
            Return Instance._typeFacade
        End Get
    End Property

    Public Shared ReadOnly Property ConsumeFacade() As ConsumeFacade
        Get
            Return Instance._consumeFacade
        End Get
    End Property

    Public Shared ReadOnly Property UserFacade() As UserFacade
        Get
            Return Instance._userFacade
        End Get
    End Property



    'Public Shared ReadOnly Property AccessFacade() As AccessFacade
    '    Get
    '        Return _accessFacade
    '    End Get
    'End Property
End Class