icarus/Icarus/Utility/Map.vb

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_refSplashScreen As SplashScreen
   ''Private m_refModifyPartPanelVM As ModifyPartPanelVM
   Private m_refManagePartPanelVM As ManagePartPanelVM

#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 refSplashScreen As SplashScreen
      Get
         Return m_refSplashScreen
      End Get
   End Property

   ''Public ReadOnly Property refModifyPartPanelVM As ModifyPartPanelVM
   ''   Get
   ''      Return m_refModifyPartPanelVM
   ''   End Get
   ''End Property

   Public ReadOnly Property refManagePartPanelVM As ManagePartPanelVM
      Get
         Return m_refManagePartPanelVM
      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 SetRefSplashScreen(SplashScreen As SplashScreen) As Boolean
      m_refSplashScreen = SplashScreen
      Return Not IsNothing(m_refSplashScreen)
   End Function

   ''Friend Function SetRefModifyPartPanelVM(ModifyPartPanelVM As ModifyPartPanelVM) As Boolean
   ''   m_refModifyPartPanelVM = ModifyPartPanelVM
   ''   Return Not IsNothing(m_refModifyPartPanelVM)
   ''End Function

   Friend Function SetRefManagePartPanelVM(ManagePartPanelVM As ManagePartPanelVM) As Boolean
      m_refManagePartPanelVM = ManagePartPanelVM
      Return Not IsNothing(m_refManagePartPanelVM)
   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