Demetrio Cassarino
37 lines
890 B
VB.net
37 lines
890 B
VB.net
Module MapV
|
|
|
|
Private m_refSceneShowBuldingV As SceneShowBuldingV
|
|
Private m_refSplashScreenV As SplashScreenV
|
|
|
|
#Region "Get"
|
|
|
|
Public ReadOnly Property refSceneShowBuldingV As SceneShowBuldingV
|
|
Get
|
|
Return m_refSceneShowBuldingV
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refSplashScreenV As SplashScreenV
|
|
Get
|
|
Return m_refSplashScreenV
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
Friend Function SetRefSceneShowBuldingV(SceneShowBuldingV As SceneShowBuldingV) As Boolean
|
|
m_refSceneShowBuldingV = SceneShowBuldingV
|
|
Return Not IsNothing(m_refSceneShowBuldingV)
|
|
End Function
|
|
|
|
Friend Function SetRefSplashScreenV(SplashScreenV As SplashScreenV) As Boolean
|
|
m_refSplashScreenV = SplashScreenV
|
|
Return Not IsNothing(m_refSplashScreenV)
|
|
End Function
|
|
|
|
#End Region ' Set
|
|
|
|
End Module
|