Demetrio Cassarino
37 lines
956 B
VB.net
37 lines
956 B
VB.net
Module MapV
|
|
|
|
Private m_refStrategyProductionV As StrategyProductionV
|
|
Private m_refSceneShowBuldingV As SceneShowBuldingV
|
|
|
|
#Region "Get"
|
|
|
|
Public ReadOnly Property refStrategyProductionV As StrategyProductionV
|
|
Get
|
|
Return m_refStrategyProductionV
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refSceneShowBuldingV As SceneShowBuldingV
|
|
Get
|
|
Return m_refSceneShowBuldingV
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
Friend Function SetRefStrategyProductionV(StrategyProductionV As StrategyProductionV) As Boolean
|
|
m_refStrategyProductionV = StrategyProductionV
|
|
Return Not IsNothing(m_refStrategyProductionV)
|
|
End Function
|
|
|
|
Friend Function SetRefSceneShowBuldingV(SceneShowBuldingV As SceneShowBuldingV) As Boolean
|
|
m_refSceneShowBuldingV = SceneShowBuldingV
|
|
Return Not IsNothing(m_refSceneShowBuldingV)
|
|
End Function
|
|
|
|
#End Region ' Set
|
|
|
|
End Module
|