Files
Emmanuele Sassi 90db656549 OmagOFFICE :
- Aggiunti componenti parametrici con anche componenti interni.
2017-05-05 07:55:07 +00:00

84 lines
2.5 KiB
VB.net

Friend Module CompoWindowMap
Private m_refCompoWindowVM As CompoWindowVM
Private m_refCompoSceneHostV As CompoSceneHostV
Private m_refCompoListPageVM As CompoListPageVM
Private m_refCompoParamPageVM As CompoParamPageVM
Private m_refCompoManagerVM As CompoManagerVM
#Region "Get"
Public ReadOnly Property refCompoWindowVM As CompoWindowVM
Get
Return m_refCompoWindowVM
End Get
End Property
Public ReadOnly Property refCompoSceneHostV As CompoSceneHostV
Get
Return m_refCompoSceneHostV
End Get
End Property
Public ReadOnly Property refCompoListPageVM As CompoListPageVM
Get
Return m_refCompoListPageVM
End Get
End Property
Public ReadOnly Property refCompoParamPageVM As CompoParamPageVM
Get
Return m_refCompoParamPageVM
End Get
End Property
Public ReadOnly Property refCompoManagerVM As CompoManagerVM
Get
Return m_refCompoManagerVM
End Get
End Property
#End Region ' Get
#Region "Set"
Friend Function SetRefCompoSceneHostV(CompoSceneHostV As CompoSceneHostV) As Boolean
m_refCompoSceneHostV = CompoSceneHostV
Return Not IsNothing(m_refCompoSceneHostV)
End Function
Friend Function SetRefCompoListPageVM(CompoListPageVM As CompoListPageVM) As Boolean
m_refCompoListPageVM = CompoListPageVM
Return Not IsNothing(m_refCompoListPageVM)
End Function
Friend Function SetRefCompoParamPageVM(CompoParamPageVM As CompoParamPageVM) As Boolean
m_refCompoParamPageVM = CompoParamPageVM
Return Not IsNothing(m_refCompoParamPageVM)
End Function
Friend Function SetRefCompoManagerVM(CompoManagerVM As CompoManagerVM) As Boolean
m_refCompoManagerVM = CompoManagerVM
Return Not IsNothing(m_refCompoManagerVM)
End Function
#End Region ' Set
#Region "Init"
Friend Function BeginInit(CompoWindowVM As CompoWindowVM) As Boolean
m_refCompoWindowVM = CompoWindowVM
Return Not IsNothing(m_refCompoWindowVM)
End Function
Friend Function EndInit() As Boolean
' Verifico se tutti i pezzi necessari sono stati caricati
Return Not IsNothing(m_refCompoWindowVM) AndAlso Not IsNothing(m_refCompoSceneHostV) AndAlso
Not IsNothing(m_refCompoListPageVM) AndAlso Not IsNothing(m_refCompoParamPageVM) AndAlso
Not IsNothing(m_refCompoManagerVM)
End Function
#End Region ' Init
End Module