Demetrio Cassarino
71 lines
1.7 KiB
VB.net
71 lines
1.7 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Module Map
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_refMainWindowVM As MainWindowVM
|
|
Private m_refMainWindowV As MainWindowV
|
|
Private m_refSceneHostV As SceneHostV
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "Get"
|
|
|
|
Public ReadOnly Property refMainWindowV As MainWindowV
|
|
Get
|
|
Return m_refMainWindowV
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refMainWindowVM As MainWindowVM
|
|
Get
|
|
Return m_refMainWindowVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refSceneHostV As SceneHostV
|
|
Get
|
|
Return m_refSceneHostV
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
Friend Function SetRefMainWindowV(MainWindowV As MainWindowV) As Boolean
|
|
m_refMainWindowV = MainWindowV
|
|
Return Not IsNothing(m_refMainWindowV)
|
|
End Function
|
|
|
|
Friend Function SetRefMainWindowVM(MainWindowVM As MainWindowVM) As Boolean
|
|
m_refMainWindowVM = MainWindowVM
|
|
Return Not IsNothing(m_refMainWindowVM)
|
|
End Function
|
|
|
|
Friend Function SetRefSceneHostV(SceneHostV As SceneHostV) As Boolean
|
|
m_refSceneHostV = SceneHostV
|
|
Return Not IsNothing(m_refSceneHostV)
|
|
End Function
|
|
|
|
#End Region ' Set
|
|
|
|
#Region "Init"
|
|
|
|
Friend Function BeginInit(MainWindowVM As MainWindowVM) As Boolean
|
|
m_refMainWindowVM = MainWindowVM
|
|
Return Not IsNothing(m_refMainWindowVM)
|
|
End Function
|
|
|
|
Friend Function EndInit() As Boolean
|
|
' Verifico se tutti i pezzi necessari sono stati caricati
|
|
Return Not IsNothing(m_refMainWindowVM) AndAlso
|
|
Not IsNothing(LibMap.refStatusBarVM) AndAlso
|
|
LibMap.EndInit()
|
|
End Function
|
|
|
|
#End Region ' Init
|
|
|
|
End Module
|