Module Map Private m_refMainWindowVM As MainWindowVM Private m_refSplashScreen As SplashScreen 'Private m_refProjectVM As ProjectVM 'Private m_refSecondaryWindowVM As SecondaryWindowVM 'Private m_refSecondaryWindowV As SecondaryWindowV #Region "Get" Public ReadOnly Property refMainWindowVM As MainWindowVM Get Return m_refMainWindowVM End Get End Property Public ReadOnly Property refSplashScreen As SplashScreen Get Return m_refSplashScreen End Get End Property 'Public ReadOnly Property refMyStatusBarVM As MyStatusBarVM ' Get ' Return LibMap.refStatusBarVM ' End Get 'End Property 'Public ReadOnly Property refProjManagerVM As ProjManagerVM ' Get ' Return m_refProjManagerVM ' End Get 'End Property 'Public ReadOnly Property refProjectVM As ProjectVM ' Get ' Return m_refProjectVM ' End Get 'End Property 'Public ReadOnly Property refSecondaryWindowVM As SecondaryWindowVM ' Get ' Return m_refSecondaryWindowVM ' End Get 'End Property 'Public ReadOnly Property refSecondaryWindowV As SecondaryWindowV ' Get ' Return m_refSecondaryWindowV ' End Get 'End Property #End Region ' Get #Region "Set" Friend Function SetRefSplashScreen(SplashScreen As SplashScreen) As Boolean m_refSplashScreen = SplashScreen Return Not IsNothing(m_refSplashScreen) End Function 'Friend Function SetRefMyStatusBarVM(MyStatusBarVM As MyStatusBarVM) As Boolean ' LibMap.SetRefStatusBarVM(MyStatusBarVM) ' Return Not IsNothing(LibMap.refStatusBarVM) 'End Function 'Friend Function SetRefProjManagerVM(ProjManagerVM As ProjManagerVM) As Boolean ' m_refProjManagerVM = ProjManagerVM ' Return Not IsNothing(m_refProjManagerVM) 'End Function 'Friend Function SetRefProjectVM(ProjectVM As ProjectVM) As Boolean ' m_refProjectVM = ProjectVM ' Return Not IsNothing(m_refProjectVM) 'End Function 'Friend Function SetRefSecondaryWindowVM(SecondaryWindowVM As SecondaryWindowVM) As Boolean ' m_refSecondaryWindowVM = SecondaryWindowVM ' Return Not IsNothing(m_refSecondaryWindowVM) 'End Function 'Friend Function SetRefSecondaryWindowV(SecondaryWindowV As SecondaryWindowV) As Boolean ' m_refSecondaryWindowV = SecondaryWindowV ' Return Not IsNothing(m_refSecondaryWindowV) '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(m_refProjectVM) AndAlso ' Not IsNothing(LibMap.refStatusBarVM) AndAlso Not IsNothing(m_refProjectManagerVM) AndAlso ' Not IsNothing(LibMap.refSceneHostVM) AndAlso Not IsNothing(LibMap.refShowPanelVM) AndAlso ' Not IsNothing(m_refVeinMatchPanelVM) AndAlso ' Not IsNothing(m_refOptionPanelVM) AndAlso Not IsNothing(m_refRawPartTabVM) AndAlso ' Not IsNothing(m_refNestingTabVM) AndAlso Not IsNothing(m_refSimulTabVM) AndAlso ' Not IsNothing(m_refMachiningTabVM) AndAlso ' LibMap.EndInit() Return Not IsNothing(m_refMainWindowVM) End Function #End Region ' Init End Module