Imports EgtWPFLib5 Module Map Private m_refMainWindowVM As MainWindowVM Private m_refMyStatusBarVM As MyStatusBarVM Private m_refProjManagerVM As ProjManagerVM 'Private m_refProdManagerVM As ProdManagerVM Private m_refProjectVM As ProjectVM Private m_refSecondaryWindowVM As SecondaryWindowVM Private m_refSecondaryWindowV As SecondaryWindowV 'Private m_refMainMenuVM As MainMenuVM Private m_refMachinePanelVM As MachinePanelVM ''Private m_refMyMachGroupPanelVM As MyMachGroupPanelVM 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_refBottomPanelVM As BottomPanelVM 'Private m_refShowBeamPanelVM As ShowBeamPanelVM 'Private m_refConfigurationPageVM As ConfigurationPageVM 'Private m_refRawPartListVM As RawPartListVM 'Private m_refPartInRawPartListVM As PartInRawPartListVM 'Private m_refWarehouseWndVM As WarehouseWndVM 'Private m_refFeatureListVM As FeatureListVM 'Private m_refFreeContourManagerVM As FreeContourManagerVM 'Private m_refFreeContourInputVM As FreeContourInputVM 'Private m_refPartManagerVM As PartManagerVM Private m_refInstrumentPanelVM As InstrumentPanelVM Private m_refTopPanelVM As TopPanelVM 'Private m_refOptimizePanelVM As OptimizePanelVM 'Private m_refCALCPanelVM As CALCPanelVM 'Private m_refPartListVM As BTLPartListVM 'Private m_refFeatureInPartInRawPartListVM As FeatureInPartInRawPartListVM 'Private m_refStatisticsVM As StatisticsVM 'Private m_refPParameterListVM As PParameterListVM 'Private m_refQParameterListVM As QParameterListVM 'Private m_refFeatureManagerVM As FeatureManagerVM 'Private m_refAddSectionXMaterialWndVM As AddSectionXMaterialWndVM 'Private m_refStatisticsTimePanelVM As StatisticsTimePanelVM 'Private m_refOpenProjectFileDialogVM As OpenProjectFileDialogVM 'Private m_refRawPartTabVM As RawPartTabVM 'Private m_refNestingTabVM As NestingTabVM 'Private m_refMachiningTabVM As MachiningTabVM 'Private m_refSplitModeVM As SplitModeVM 'Private m_refMoveRawModeVM As MoveRawModeVM 'Private m_refSimulTabVM As SimulTabVM Private m_refImportPanelVM As ImportPanelVM 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_refModifyPartPanelVM As ModifyPartPanelVM #Region "Get" Public ReadOnly Property refMainWindowVM As MainWindowVM Get Return m_refMainWindowVM 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 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 refMainMenuVM As MainMenuVM ' Get ' Return m_refMainMenuVM ' 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 refMachGroupPanelVM As MyMachGroupPanelVM ' Get ' Return CoreMap.refMachGroupPanelVM ' End Get 'End Property 'Public ReadOnly Property refBottomPanelVM As BottomPanelVM ' Get ' Return m_refBottomPanelVM ' End Get 'End Property 'Public ReadOnly Property refShowBeamPanelVM As ShowBeamPanelVM ' Get ' Return m_refShowBeamPanelVM ' End Get 'End Property 'Public ReadOnly Property refConfigurationPageVM As ConfigurationPageVM ' Get ' Return m_refConfigurationPageVM ' End Get 'End Property 'Public ReadOnly Property refRawPartListVM As RawPartListVM ' Get ' Return m_refRawPartListVM ' End Get 'End Property 'Public ReadOnly Property refPartInRawPartListVM As PartInRawPartListVM ' Get ' Return m_refPartInRawPartListVM ' End Get 'End Property 'Public ReadOnly Property refWarehouseWndVM As WarehouseWndVM ' Get ' Return m_refWarehouseWndVM ' End Get 'End Property 'Public ReadOnly Property refFeatureListVM As FeatureListVM ' Get ' Return m_refFeatureListVM ' End Get 'End Property 'Public ReadOnly Property refFreeContourManagerVM As FreeContourManagerVM ' Get ' Return m_refFreeContourManagerVM ' End Get 'End Property 'Public ReadOnly Property refFreeContourInputVM As FreeContourInputVM ' Get ' Return m_refFreeContourInputVM ' End Get 'End Property 'Public ReadOnly Property refPartManagerVM As PartManagerVM ' Get ' Return m_refPartManagerVM ' 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 refOptimizePanelVM As OptimizePanelVM ' Get ' Return m_refOptimizePanelVM ' End Get 'End Property 'Public ReadOnly Property refCALCPanelVM As CALCPanelVM ' Get ' Return m_refCALCPanelVM ' End Get 'End Property 'Public ReadOnly Property refPartListVM As BTLPartListVM ' Get ' Return m_refPartListVM ' End Get 'End Property 'Public ReadOnly Property refFeatureInPartInRawPartListVM As FeatureInPartInRawPartListVM ' Get ' Return m_refFeatureInPartInRawPartListVM ' End Get 'End Property 'Public ReadOnly Property refStatisticsVM As StatisticsVM ' Get ' Return m_refStatisticsVM ' End Get 'End Property 'Public ReadOnly Property refPParameterListVM As PParameterListVM ' Get ' Return m_refPParameterListVM ' End Get 'End Property 'Public ReadOnly Property refQParameterListVM As QParameterListVM ' Get ' Return m_refQParameterListVM ' End Get 'End Property 'Public ReadOnly Property refFeatureManagerVM As FeatureManagerVM ' Get ' Return m_refFeatureManagerVM ' End Get 'End Property 'Public ReadOnly Property refAddSectionXMaterialWndVM As AddSectionXMaterialWndVM ' Get ' Return m_refAddSectionXMaterialWndVM ' End Get 'End Property 'Public ReadOnly Property refStatisticsTimePanelVM As StatisticsTimePanelVM ' Get ' Return m_refStatisticsTimePanelVM ' End Get 'End Property 'Public ReadOnly Property refOpenProjectFileDialogVM As OpenProjectFileDialogVM ' Get ' Return m_refOpenProjectFileDialogVM ' End Get 'End Property 'Public ReadOnly Property refOptionPanelVM As OptionPanelVM ' Get ' Return m_refOptionPanelVM ' End Get 'End Property 'Public ReadOnly Property refRawPartTabVM As RawPartTabVM ' Get ' Return m_refRawPartTabVM ' End Get 'End Property 'Public ReadOnly Property refNestingTabVM As NestingTabVM ' Get ' Return m_refNestingTabVM ' End Get 'End Property 'Public ReadOnly Property refMachiningTabVM As MachiningTabVM ' Get ' Return m_refMachiningTabVM ' End Get 'End Property 'Public ReadOnly Property refSplitModeVM As SplitModeVM ' Get ' Return m_refSplitModeVM ' End Get 'End Property 'Public ReadOnly Property refMoveRawModeVM As MoveRawModeVM ' Get ' Return m_refMoveRawModeVM ' End Get 'End Property 'Public ReadOnly Property refSimulTabVM As SimulTabVM ' Get ' Return m_refSimulTabVM ' End Get 'End Property Public ReadOnly Property refImportPanelVM As ImportPanelVM Get Return m_refImportPanelVM 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 refModifyPartPanelVM As ModifyPartPanelVM Get Return m_refModifyPartPanelVM 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 SetRefProjManagerVM(ProjManagerVM As ProjManagerVM) As Boolean m_refProjManagerVM = ProjManagerVM Return Not IsNothing(m_refProjManagerVM) End Function 'Friend Function SetRefProdManagerVM(ProdManagerVM As ProdManagerVM) As Boolean ' m_refProdManagerVM = ProdManagerVM ' Return Not IsNothing(m_refProdManagerVM) 'End Function Friend Function SetRefProjectVM(ProjectVM As ProjectVM) As Boolean m_refProjectVM = ProjectVM Return Not IsNothing(m_refProjectVM) End Function 'Friend Function SetRefMainMenuVM(MainMenuVM As MainMenuVM) As Boolean ' m_refMainMenuVM = MainMenuVM ' Return Not IsNothing(m_refMainMenuVM) 'End Function Friend Function SetRefSceneHostVM(SceneHostVM As SceneHostVM) As Boolean LibMap.SetRefSceneHostVM(SceneHostVM) Return Not IsNothing(LibMap.refSceneHostVM) 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 SetRefShowPanelVM(ShowPanelVM As ShowPanelVM) As Boolean ' LibMap.SetRefShowPanelVM(ShowPanelVM) ' Return Not IsNothing(LibMap.refShowPanelVM) '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 SetRefMachGroupPanelVM(MachGroupPanelVM As MyMachGroupPanelVM) As Boolean ' CoreMap.SetRefMachGroupPanelVM(MachGroupPanelVM) ' Return Not IsNothing(CoreMap.refMachGroupPanelVM) 'End Function 'Friend Function SetRefBottomPanelVM(BottomPanelVM As BottomPanelVM) As Boolean ' m_refBottomPanelVM = BottomPanelVM ' Return Not IsNothing(m_refBottomPanelVM) 'End Function 'Friend Function SetRefShowBeamPanelVM(ShowBeamPanelVM As ShowBeamPanelVM) As Boolean ' m_refShowBeamPanelVM = ShowBeamPanelVM ' Return Not IsNothing(m_refShowBeamPanelVM) 'End Function 'Friend Function SetRefConfigurationPageVM(ConfigurationPageVM As ConfigurationPageVM) As Boolean ' m_refConfigurationPageVM = ConfigurationPageVM ' Return Not IsNothing(m_refConfigurationPageVM) 'End Function 'Friend Function SetRefRawPartListVM(RawPartListVM As RawPartListVM) As Boolean ' m_refRawPartListVM = RawPartListVM ' Return Not IsNothing(m_refRawPartListVM) 'End Function 'Friend Function SetRefPartInRawPartListVM(PartInRawPartListVM As PartInRawPartListVM) As Boolean ' m_refPartInRawPartListVM = PartInRawPartListVM ' Return Not IsNothing(m_refPartInRawPartListVM) 'End Function 'Friend Function SetRefWarehouseWndVM(WarehouseWndVM As WarehouseWndVM) As Boolean ' m_refWarehouseWndVM = WarehouseWndVM ' Return Not IsNothing(m_refWarehouseWndVM) 'End Function 'Friend Function SetRefFeatureListVM(FeatureListVM As FeatureListVM) As Boolean ' m_refFeatureListVM = FeatureListVM ' Return Not IsNothing(m_refFeatureListVM) 'End Function 'Friend Function SetRefFreeContourManagerVM(FreeContourManagerVM As FreeContourManagerVM) As Boolean ' m_refFreeContourManagerVM = FreeContourManagerVM ' Return Not IsNothing(m_refFreeContourManagerVM) 'End Function 'Friend Function SetRefFreeContourInputVM(FreeContourInputVM As FreeContourInputVM) As Boolean ' m_refFreeContourInputVM = FreeContourInputVM ' Return Not IsNothing(m_refFreeContourInputVM) 'End Function 'Friend Function SetRefPartManagerVM(PartManagerVM As PartManagerVM) As Boolean ' m_refPartManagerVM = PartManagerVM ' Return Not IsNothing(m_refPartManagerVM) '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 SetRefOptimizePanelVM(OptimizePanelVM As OptimizePanelVM) As Boolean ' m_refOptimizePanelVM = OptimizePanelVM ' Return Not IsNothing(m_refOptimizePanelVM) 'End Function 'Friend Function SetRefCALCPanelVM(CALCPanelVM As CALCPanelVM) As Boolean ' m_refCALCPanelVM = CALCPanelVM ' Return Not IsNothing(m_refCALCPanelVM) 'End Function 'Friend Function SetRefPartListVM(PartListVM As BTLPartListVM) As Boolean ' m_refPartListVM = PartListVM ' Return Not IsNothing(m_refPartListVM) 'End Function 'Friend Function SetRefFeatureInPartInRawPartListVM(FeatureInPartInRawPartListVM As FeatureInPartInRawPartListVM) As Boolean ' m_refFeatureInPartInRawPartListVM = FeatureInPartInRawPartListVM ' Return Not IsNothing(m_refFeatureInPartInRawPartListVM) 'End Function 'Friend Function SetRefStatisticsVM(StatisticsVM As StatisticsVM) As Boolean ' m_refStatisticsVM = StatisticsVM ' Return Not IsNothing(m_refStatisticsVM) 'End Function 'Friend Function SetRefPParameterListVM(PParameterListVM As PParameterListVM) As Boolean ' m_refPParameterListVM = PParameterListVM ' Return Not IsNothing(m_refPParameterListVM) 'End Function 'Friend Function SetRefQParameterListVM(QParameterListVM As QParameterListVM) As Boolean ' m_refQParameterListVM = QParameterListVM ' Return Not IsNothing(m_refQParameterListVM) 'End Function 'Friend Function SetRefFeatureManagerVM(FeatureManagerVM As FeatureManagerVM) As Boolean ' m_refFeatureManagerVM = FeatureManagerVM ' Return Not IsNothing(m_refFeatureManagerVM) 'End Function 'Friend Function SetRefAddSectionXMaterialWndVM(AddSectionXMaterialWndVM As AddSectionXMaterialWndVM) As Boolean ' m_refAddSectionXMaterialWndVM = AddSectionXMaterialWndVM ' Return Not IsNothing(m_refAddSectionXMaterialWndVM) 'End Function 'Friend Function SetRefStatisticsTimePanelVM(StatisticsTimePanelVM As StatisticsTimePanelVM) As Boolean ' m_refStatisticsTimePanelVM = StatisticsTimePanelVM ' Return Not IsNothing(m_refStatisticsTimePanelVM) 'End Function 'Friend Function SetRefOpenProjectFileDialogVM(OpenProjectFileDialogVM As OpenProjectFileDialogVM) As Boolean ' m_refOpenProjectFileDialogVM = OpenProjectFileDialogVM ' Return Not IsNothing(m_refOpenProjectFileDialogVM) 'End Function 'Friend Function SetRefOptionPanelVM(OptionPanelVM As OptionPanelVM) As Boolean ' m_refOptionPanelVM = OptionPanelVM ' Return Not IsNothing(m_refOptionPanelVM) 'End Function 'Friend Function SetRefRawPartTabVM(RawPartTabVM As RawPartTabVM) As Boolean ' m_refRawPartTabVM = RawPartTabVM ' Return Not IsNothing(m_refRawPartTabVM) 'End Function 'Friend Function SetRefNestingTabVM(NestingTabVM As NestingTabVM) As Boolean ' m_refNestingTabVM = NestingTabVM ' Return Not IsNothing(m_refNestingTabVM) 'End Function 'Friend Function SetRefMachiningTabVM(MachiningTabVM As MachiningTabVM) As Boolean ' m_refMachiningTabVM = MachiningTabVM ' Return Not IsNothing(m_refMachiningTabVM) 'End Function 'Friend Function SetRefSplitModeVM(SplitModeVM As SplitModeVM) As Boolean ' m_refSplitModeVM = SplitModeVM ' Return Not IsNothing(m_refSplitModeVM) 'End Function 'Friend Function SetRefMoveRawModeVM(MoveRawModeVM As MoveRawModeVM) As Boolean ' m_refMoveRawModeVM = MoveRawModeVM ' Return Not IsNothing(m_refMoveRawModeVM) 'End Function 'Friend Function SetRefSimulTabVM(SimulTabVM As SimulTabVM) As Boolean ' m_refSimulTabVM = SimulTabVM ' Return Not IsNothing(m_refSimulTabVM) 'End Function Friend Function SetRefImportPanelVM(ImportPanelVM As ImportPanelVM) As Boolean m_refImportPanelVM = ImportPanelVM Return Not IsNothing(m_refImportPanelVM) 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 SetRefModifyPartPanelVM(ModifyPartPanelVM As ModifyPartPanelVM) As Boolean m_refModifyPartPanelVM = ModifyPartPanelVM Return Not IsNothing(m_refModifyPartPanelVM) 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 LibMap.EndInit() End Function #End Region ' Init End Module