Imports EgtWPFLib5 Module Map Private m_refMainWindowVM As MainWindowVM 'Private m_refMyStatusBarVM As MyStatusBarVM Private m_refHomePageVM As HomePageVM Private m_refProjManagerVM As ProjManagerVM Private m_refManageWindowVM As ManageWindowVM Private m_refEstimationListPageVM As EstimationListPageVM Private m_refEstimationDetailPageVM As EstimationDetailPageVM Private m_refCRMPageVM As CRMPageVM 'Private m_refProjectVM As ProjectVM 'Private m_refSecondaryWindowVM As SecondaryWindowVM 'Private m_refSecondaryWindowV As SecondaryWindowV 'Private m_refMachinePanelVM As MachinePanelVM 'Private m_refLeftPanelVM As LeftPanelVM 'Private m_refRightPanelVM As RightPanelVM 'Private m_refDispositionPanelVM As DispositionPanelVM 'Private m_refStartMachPanelVM As StartMachPanelVM 'Private m_refRibPanelVM As RibPanelVM 'Private m_refControllerInputPanelVM As ControllerInputPanelVM 'Private m_refInstrumentPanelVM As InstrumentPanelVM 'Private m_refTopPanelVM As TopPanelVM 'Private m_refSliceManagerVM As SliceManagerVM 'Private m_refTFSEditorVM As TFSEditorVM 'Private m_refCurrMachiningPanelVM As CurrMachiningPanelVM 'Private m_refMachiningDbVM As MachiningDbVM 'Private m_refMaterialDbVM As MaterialDbVM 'Private m_refSliderManagerVM As SliderManagerVM 'Private m_refRibParamPanelVM As RibParamPanelVM 'Private m_refSimulationPanelVM As SimulationPanelVM 'Private m_refReferencePanelVM As ReferencePanelVM 'Private m_refViewLayerManagerVM As ViewLayerManagerVM 'Private m_refShellNumberPanelVM As ShellNumberPanelVM 'Private m_refShellNumberParamPanelVM As ShellNumberParamPanelVM 'Private m_refFilledSolidPanelVM As FilledSolidPanelVM 'Private m_refFilledSolidParamPanelVM As FilledSolidParamPanelVM 'Private m_refSplashScreen As SplashScreen 'Private m_refManagePartPanelVM As ManagePartPanelVM 'Private m_refMachineViewPanelVM As MachineViewPanelVM 'Private m_refImportLoadingWndVM As ImportLoadingWndVM #Region "Get" Public ReadOnly Property refMainWindowVM As MainWindowVM Get Return m_refMainWindowVM End Get End Property Public ReadOnly Property refHomePageVM As HomePageVM Get Return m_refHomePageVM 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 refSceneHostVM As MySceneHostVM Get Return LibMap.refSceneHostVM End Get End Property Public ReadOnly Property refManageWindowVM As ManageWindowVM Get Return m_refManageWindowVM End Get End Property Public ReadOnly Property refEstimationListPageVM As EstimationListPageVM Get Return m_refEstimationListPageVM End Get End Property Public ReadOnly Property refEstimationDetailPageVM As EstimationDetailPageVM Get Return m_refEstimationDetailPageVM End Get End Property Public ReadOnly Property refCRMPageVM As CRMPageVM Get Return m_refCRMPageVM 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 'Public ReadOnly Property refShowPanelVM As ShowPanelVM ' Get ' Return LibMap.refShowPanelVM ' End Get 'End Property 'Public ReadOnly Property refMachinePanelVM As MachinePanelVM ' Get ' Return m_refMachinePanelVM ' End Get 'End Property 'Public ReadOnly Property refLeftPanelVM As LeftPanelVM ' Get ' Return m_refLeftPanelVM ' End Get 'End Property 'Public ReadOnly Property refRightPanelVM As RightPanelVM ' Get ' Return m_refRightPanelVM ' End Get 'End Property 'Public ReadOnly Property refDispositionPanelVM As DispositionPanelVM ' Get ' Return m_refDispositionPanelVM ' End Get 'End Property 'Public ReadOnly Property refStartMachPanelVM As StartMachPanelVM ' Get ' Return m_refStartMachPanelVM ' End Get 'End Property 'Public ReadOnly Property refRibPanelVM As RibPanelVM ' Get ' Return m_refRibPanelVM ' End Get 'End Property 'Public ReadOnly Property refControllerInputPanelVM As ControllerInputPanelVM ' Get ' Return m_refControllerInputPanelVM ' End Get 'End Property 'Public ReadOnly Property refInstrumentPanelVM As MyInstrumentPanelVM ' Get ' Return m_refInstrumentPanelVM ' End Get 'End Property 'Public ReadOnly Property refTopPanelVM As TopPanelVM ' Get ' Return m_refTopPanelVM ' End Get 'End Property 'Public ReadOnly Property refSliceManagerVM As SliceManagerVM ' Get ' Return m_refSliceManagerVM ' End Get 'End Property 'Public ReadOnly Property refTFSEditorVM As TFSEditorVM ' Get ' Return m_refTFSEditorVM ' End Get 'End Property 'Public ReadOnly Property refCurrMachiningPanelVM As CurrMachiningPanelVM ' Get ' Return m_refCurrMachiningPanelVM ' End Get 'End Property 'Public ReadOnly Property refMachiningDbVM As MachiningDbVM ' Get ' Return m_refMachiningDbVM ' End Get 'End Property 'Public ReadOnly Property refMaterialDbVM As MaterialDbVM ' Get ' Return m_refMaterialDbVM ' End Get 'End Property 'Public ReadOnly Property refSliderManagerVM As SliderManagerVM ' Get ' Return m_refSliderManagerVM ' End Get 'End Property 'Public ReadOnly Property refRibParamPanelVM As RibParamPanelVM ' Get ' Return m_refRibParamPanelVM ' End Get 'End Property 'Public ReadOnly Property refSimulationPanelVM As SimulationPanelVM ' Get ' Return m_refSimulationPanelVM ' End Get 'End Property 'Public ReadOnly Property refReferencePanelVM As ReferencePanelVM ' Get ' Return m_refReferencePanelVM ' End Get 'End Property 'Public ReadOnly Property refViewLayerManagerVM As ViewLayerManagerVM ' Get ' Return m_refViewLayerManagerVM ' End Get 'End Property 'Public ReadOnly Property refShellNumberPanelVM As ShellNumberPanelVM ' Get ' Return m_refShellNumberPanelVM ' End Get 'End Property 'Public ReadOnly Property refShellNumberParamPanelVM As ShellNumberParamPanelVM ' Get ' Return m_refShellNumberParamPanelVM ' End Get 'End Property 'Public ReadOnly Property refFilledSolidPanelVM As FilledSolidPanelVM ' Get ' Return m_refFilledSolidPanelVM ' End Get 'End Property 'Public ReadOnly Property refFilledSolidParamPanelVM As FilledSolidParamPanelVM ' Get ' Return m_refFilledSolidParamPanelVM ' End Get 'End Property 'Public ReadOnly Property refSplashScreen As SplashScreen ' Get ' Return m_refSplashScreen ' End Get 'End Property 'Public ReadOnly Property refManagePartPanelVM As ManagePartPanelVM ' Get ' Return m_refManagePartPanelVM ' End Get 'End Property 'Public ReadOnly Property refMachineViewPanelVM As MachineViewPanelVM ' Get ' Return m_refMachineViewPanelVM ' End Get 'End Property 'Public ReadOnly Property refImportLoadingWndVM As ImportLoadingWndVM ' Get ' Return m_refImportLoadingWndVM ' End Get 'End Property #End Region ' Get #Region "Set" 'Friend Function SetRefMyStatusBarVM(MyStatusBarVM As MyStatusBarVM) As Boolean ' LibMap.SetRefStatusBarVM(MyStatusBarVM) ' Return Not IsNothing(LibMap.refStatusBarVM) 'End Function Friend Function SetRefHomePageVM(HomePageVM As HomePageVM) As Boolean m_refHomePageVM = HomePageVM Return Not IsNothing(m_refHomePageVM) 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 SetRefSceneHostVM(SceneHostVM As SceneHostVM) As Boolean LibMap.SetRefSceneHostVM(SceneHostVM) Return Not IsNothing(LibMap.refSceneHostVM) End Function Friend Function SetRefManageWindowVM(ManageWindowVM As ManageWindowVM) As Boolean m_refManageWindowVM = ManageWindowVM Return Not IsNothing(m_refManageWindowVM) End Function Friend Function SetRefEstimationListPageVM(EstimationListPageVM As EstimationListPageVM) As Boolean m_refEstimationListPageVM = EstimationListPageVM Return Not IsNothing(m_refEstimationListPageVM) End Function Friend Function SetRefEstimationDetailPageVM(EstimationDetailPageVM As EstimationDetailPageVM) As Boolean m_refEstimationDetailPageVM = EstimationDetailPageVM Return Not IsNothing(m_refEstimationDetailPageVM) End Function Friend Function SetRefCRMPageVM(CRMPageVM As CRMPageVM) As Boolean m_refCRMPageVM = CRMPageVM Return Not IsNothing(m_refCRMPageVM) 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 'Friend Function SetRefMachinePanelVM(MachinePanelVM As MachinePanelVM) As Boolean ' m_refMachinePanelVM = MachinePanelVM ' Return Not IsNothing(m_refMachinePanelVM) 'End Function 'Friend Function SetRefLeftPanelVM(LeftPanelVM As LeftPanelVM) As Boolean ' m_refLeftPanelVM = LeftPanelVM ' Return Not IsNothing(m_refLeftPanelVM) 'End Function 'Friend Function SetRefRightPanelVM(RightPanelVM As RightPanelVM) As Boolean ' m_refRightPanelVM = RightPanelVM ' Return Not IsNothing(m_refRightPanelVM) 'End Function 'Friend Function SetRefDispositionPanelVM(DispositionPanelVM As DispositionPanelVM) As Boolean ' m_refDispositionPanelVM = DispositionPanelVM ' Return Not IsNothing(m_refDispositionPanelVM) 'End Function 'Friend Function SetRefStartMachPanelVM(StartMachPanelVM As StartMachPanelVM) As Boolean ' m_refStartMachPanelVM = StartMachPanelVM ' Return Not IsNothing(m_refStartMachPanelVM) 'End Function 'Friend Function SetRefRibPanelVM(RibPanelVM As RibPanelVM) As Boolean ' m_refRibPanelVM = RibPanelVM ' Return Not IsNothing(m_refRibPanelVM) 'End Function 'Friend Function SetRefControllerInputPanelVM(ControllerInputPanelVM As ControllerInputPanelVM) As Boolean ' m_refControllerInputPanelVM = ControllerInputPanelVM ' Return Not IsNothing(m_refControllerInputPanelVM) 'End Function 'Friend Function SetRefInstrumentPanelVM(InstrumentPanelVM As InstrumentPanelVM) As Boolean ' m_refInstrumentPanelVM = InstrumentPanelVM ' Return Not IsNothing(m_refInstrumentPanelVM) 'End Function 'Friend Function SetRefTopPanelVM(TopPanelVM As TopPanelVM) As Boolean ' m_refTopPanelVM = TopPanelVM ' Return Not IsNothing(m_refTopPanelVM) 'End Function 'Friend Function SetRefSliceManagerVM(SliceManagerVM As SliceManagerVM) As Boolean ' m_refSliceManagerVM = SliceManagerVM ' Return Not IsNothing(m_refSliceManagerVM) 'End Function 'Friend Function SetRefTFSEditorVM(TFSEditorVM As TFSEditorVM) As Boolean ' m_refTFSEditorVM = TFSEditorVM ' Return Not IsNothing(m_refTFSEditorVM) 'End Function 'Friend Function SetRefCurrMachiningPanelVM(CurrMachiningPanelVM As CurrMachiningPanelVM) As Boolean ' m_refCurrMachiningPanelVM = CurrMachiningPanelVM ' Return Not IsNothing(m_refCurrMachiningPanelVM) 'End Function 'Friend Function SetRefMachiningDbVM(MachiningDbVM As MachiningDbVM) As Boolean ' m_refMachiningDbVM = MachiningDbVM ' Return Not IsNothing(m_refMachiningDbVM) 'End Function 'Friend Function SetRefMaterialDbVM(MaterialDbVM As MaterialDbVM) As Boolean ' m_refMaterialDbVM = MaterialDbVM ' Return Not IsNothing(m_refMaterialDbVM) 'End Function 'Friend Function SetRefSliderManagerVM(SliderManagerVM As SliderManagerVM) As Boolean ' m_refSliderManagerVM = SliderManagerVM ' Return Not IsNothing(m_refSliderManagerVM) 'End Function 'Friend Function SetRefRibParamPanelVM(RibParamPanelVM As RibParamPanelVM) As Boolean ' m_refRibParamPanelVM = RibParamPanelVM ' Return Not IsNothing(m_refRibParamPanelVM) 'End Function 'Friend Function SetRefSimulationPanelVM(SimulationPanelVM As SimulationPanelVM) As Boolean ' m_refSimulationPanelVM = SimulationPanelVM ' Return Not IsNothing(m_refSimulationPanelVM) 'End Function 'Friend Function SetRefReferencePanelVM(ReferencePanelVM As ReferencePanelVM) As Boolean ' m_refReferencePanelVM = ReferencePanelVM ' Return Not IsNothing(m_refReferencePanelVM) 'End Function 'Friend Function SetRefViewLayerManagerVM(ViewLayerManagerVM As ViewLayerManagerVM) As Boolean ' m_refViewLayerManagerVM = ViewLayerManagerVM ' Return Not IsNothing(m_refViewLayerManagerVM) 'End Function 'Friend Function SetRefShellNumberPanelVM(ShellNumberPanelVM As ShellNumberPanelVM) As Boolean ' m_refShellNumberPanelVM = ShellNumberPanelVM ' Return Not IsNothing(m_refShellNumberPanelVM) 'End Function 'Friend Function SetRefShellNumberParamPanelVM(ShellNumberParamPanelVM As ShellNumberParamPanelVM) As Boolean ' m_refShellNumberParamPanelVM = ShellNumberParamPanelVM ' Return Not IsNothing(m_refShellNumberParamPanelVM) 'End Function 'Friend Function SetRefFilledSolidPanelVM(FilledSolidPanelVM As FilledSolidPanelVM) As Boolean ' m_refFilledSolidPanelVM = FilledSolidPanelVM ' Return Not IsNothing(m_refFilledSolidPanelVM) 'End Function 'Friend Function SetRefFilledSolidParamPanelVM(FilledSolidParamPanelVM As FilledSolidParamPanelVM) As Boolean ' m_refFilledSolidParamPanelVM = FilledSolidParamPanelVM ' Return Not IsNothing(m_refFilledSolidParamPanelVM) 'End Function 'Friend Function SetRefSplashScreen(SplashScreen As SplashScreen) As Boolean ' m_refSplashScreen = SplashScreen ' Return Not IsNothing(m_refSplashScreen) 'End Function 'Friend Function SetRefManagePartPanelVM(ManagePartPanelVM As ManagePartPanelVM) As Boolean ' m_refManagePartPanelVM = ManagePartPanelVM ' Return Not IsNothing(m_refManagePartPanelVM) 'End Function 'Friend Function SetRefMachineViewPanelVM(MachineViewPanelVM As MachineViewPanelVM) As Boolean ' m_refMachineViewPanelVM = MachineViewPanelVM ' Return Not IsNothing(m_refMachineViewPanelVM) 'End Function 'Friend Function SetRefImportLoadingWndVM(ImportLoadingWndVM As ImportLoadingWndVM) As Boolean ' m_refImportLoadingWndVM = ImportLoadingWndVM ' Return Not IsNothing(m_refImportLoadingWndVM) '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) AndAlso Not IsNothing(LibMap.refStatusBarVM) AndAlso Not IsNothing(m_refManageWindowVM) AndAlso LibMap.EndInit() End Function #End Region ' Init End Module