90db656549
- Aggiunti componenti parametrici con anche componenti interni.
84 lines
2.5 KiB
VB.net
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
|