Files
omagoffice/CompoWindow/CompoWindowMap.vb
T
Emmanuele Sassi 5278c1d2e0 OmagOffice :
- Aggiunta finestra disegno Compo.
- Migliorie varie.
2017-04-24 12:55:25 +00:00

70 lines
2.0 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
#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
#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
#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)
End Function
#End Region ' Init
End Module