EgtCAM5/Utility/Map.vb

Imports EgtWPFLib5

Module Map

#Region "Program ViewModel Map"

   Private m_refMainWindowVM As MainWindowVM
   'Private m_refStatusBarVM As StatusBarVM
   Private m_refTopCommandBarVM As TopCommandBarVM
   Private m_refProjectVM As ProjectVM
   Private m_refFixtureParametersVM As FixtureParametersVM
   Private m_refRawPartOptionVM As RawPartOptionVM
   Private m_refSimulationExpanderVM As SimulationExpanderVM
   Private m_refMachinePanelVM As MyMachinePanelVM
   Private m_refOptionPanelVM As OptionPanelVM
   Private m_refDrawOptionPanelVM As DrawOptionPanelVM
   Private m_refMachiningOptionPanelVM As MachiningOptionPanelVM
   Private m_refEstimationsExpanderVM As EstimationsExpanderVM
   Private m_refOperationsListExpanderVM As OperationsListExpanderVM
   Private m_refOperationParametersExpanderVM As OperationParametersExpanderVM
   Private m_refMachiningTreeExpanderVM As MachiningTreeExpanderVM
   'Private m_refMachGroupPanelVM As MachGroupPanelVM
   Private m_refInstrumentPanelVM As InstrumentPanelVM
   Private m_refManageLayerExpanderVM As ManageLayerExpanderVM
   Private m_refInputExpanderVM As InputExpanderVM
   Private m_refShowPanelVM As ShowPanelVM
   Private m_refInfoExpanderVM As InfoExpanderVM
   Private m_refDrawPanelVM As DrawPanelVM
   Private m_refProjectV As ProjectV
   Private m_refDoorPanelVM As DoorPanelVM
   Private m_refSpecialPanelVM As SpecialPanelVM
   Private m_refExecutePanelVM As ExecutePanelVM
   Private m_refBeamPanelVM As BeamPanelVM
   Private m_refWallPanelVM As WallPanelVM
   Private m_refBeamWallPanelVM As BeamWallPanelVM
   Private m_refGunStockPanelVM As GunStockPanelVM

#Region "Get"

   Public ReadOnly Property refMainWindowVM As MainWindowVM
      Get
         Return m_refMainWindowVM
      End Get
   End Property
   Public ReadOnly Property refStatusBarVM As MyStatusBarVM
      Get
         Return DirectCast(LibMap.refStatusBarVM, MyStatusBarVM)
      End Get
   End Property
   Public ReadOnly Property refTopCommandBarVM As TopCommandBarVM
      Get
         Return m_refTopCommandBarVM
      End Get
   End Property
   Public  ReadOnly Property refProjectVM As ProjectVM
      Get
         Return m_refProjectVM
      End Get
   End Property
   Public ReadOnly Property refFixtureParametersVM As FixtureParametersVM
      Get
         Return m_refFixtureParametersVM
      End Get
   End Property
   Public ReadOnly Property refRawPartOptionVM As RawPartOptionVM
      Get
         Return m_refRawPartOptionVM
      End Get
   End Property
   Public ReadOnly Property refSimulationExpanderVM As SimulationExpanderVM
      Get
         Return m_refSimulationExpanderVM
      End Get
   End Property
   Public ReadOnly Property refMachinePanelVM As MyMachinePanelVM
      Get
         Return m_refMachinePanelVM
      End Get
   End Property
   Public ReadOnly Property refOptionPanelVM As OptionPanelVM
      Get
         Return m_refOptionPanelVM
      End Get
   End Property
   Public ReadOnly Property refDrawOptionPanelVM As DrawOptionPanelVM
      Get
         Return m_refDrawOptionPanelVM
      End Get
   End Property
   Public ReadOnly Property refMachiningOptionPanelVM As MachiningOptionPanelVM
      Get
         Return m_refMachiningOptionPanelVM
      End Get
   End Property
   Public ReadOnly Property refEstimationsExpanderVM As EstimationsExpanderVM
      Get
         Return m_refEstimationsExpanderVM
      End Get
   End Property
   Public ReadOnly Property refOperationsListExpanderVM As OperationsListExpanderVM
      Get
         Return m_refOperationsListExpanderVM
      End Get
   End Property
   Public ReadOnly Property refOperationParametersExpanderVM As OperationParametersExpanderVM
      Get
         Return m_refOperationParametersExpanderVM
      End Get
   End Property
   Public ReadOnly Property refMachiningTreeExpanderVM As MachiningTreeExpanderVM
      Get
         Return m_refMachiningTreeExpanderVM
      End Get
   End Property
   Public ReadOnly Property refMachGroupPanelVM As MyMachGroupPanelVM
      Get
         Return DirectCast( LibMap.refMachGroupPanelVM, MyMachGroupPanelVM)
      End Get
   End Property
   Public ReadOnly Property refInstrumentPanelVM As InstrumentPanelVM
      Get
         Return m_refInstrumentPanelVM
      End Get
   End Property
   Public ReadOnly Property refManageLayerExpanderVM As ManageLayerExpanderVM
      Get
         Return m_refManageLayerExpanderVM
      End Get
   End Property
   Public ReadOnly Property refInputExpanderVM As InputExpanderVM
      Get
         Return m_refInputExpanderVM
      End Get
   End Property
   Public ReadOnly Property refShowPanelVM As ShowPanelVM
      Get
         Return m_refShowPanelVM
      End Get
   End Property
   Public ReadOnly Property refInfoExpanderVM As InfoExpanderVM
      Get
         Return m_refInfoExpanderVM
      End Get
   End Property
   Public ReadOnly Property refDrawPanelVM As DrawPanelVM
      Get
         Return m_refDrawPanelVM
      End Get
   End Property
   Public ReadOnly Property refProjectV As ProjectV
      Get
         Return m_refProjectV
      End Get
   End Property
   Public ReadOnly Property refDoorPanelVM As DoorPanelVM
      Get
         Return m_refDoorPanelVM
      End Get
   End Property
   Public ReadOnly Property refSpecialPanelVM As SpecialPanelVM
      Get
         Return m_refSpecialPanelVM
      End Get
   End Property
   Public ReadOnly Property refExecutePanelVM As ExecutePanelVM
      Get
         Return m_refExecutePanelVM
      End Get
   End Property
   Public ReadOnly Property refBeamPanelVM As BeamPanelVM
      Get
         Return m_refBeamPanelVM
      End Get
   End Property
   Public ReadOnly Property refWallPanelVM As WallPanelVM
      Get
         Return m_refWallPanelVM
      End Get
   End Property
   Public ReadOnly Property refBeamWallPanelVM As BeamWallPanelVM
      Get
         Return m_refBeamWallPanelVM
      End Get
   End Property
   Public ReadOnly Property refGunStockPanelVM As GunStockPanelVM
      Get
         Return m_refGunStockPanelVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

   Friend Function SetRefStatusBarVM(StatusBarVM As MyStatusBarVM) As Boolean
      LibMap.SetRefStatusBarVM(StatusBarVM)
      Return Not IsNothing(LibMap.refStatusBarVM)
   End Function
   Friend Function SetRefTopCommandBarVM(TopCommandBarVM As TopCommandBarVM) As Boolean
      m_refTopCommandBarVM = TopCommandBarVM
      Return Not IsNothing(m_refTopCommandBarVM)
   End Function
   Friend Function SetRefProjectVM(ProjectVM As ProjectVM) As Boolean
      m_refProjectVM = ProjectVM
      Return Not IsNothing(m_refProjectVM)
   End Function
   Friend Function SetRefFixtureParametersVM(FixtureParametersVM As FixtureParametersVM) As Boolean
      m_refFixtureParametersVM = FixtureParametersVM
      Return Not IsNothing(m_refFixtureParametersVM)
   End Function
   Friend Function SetRefRawPartOptionVM(RawPartOptionVM As RawPartOptionVM) As Boolean
      m_refRawPartOptionVM = RawPartOptionVM
      Return Not IsNothing(m_refRawPartOptionVM)
   End Function

   Friend Function SetRefSimulationExpanderVM(SimulationExpanderVM As SimulationExpanderVM) As Boolean
      m_refSimulationExpanderVM = SimulationExpanderVM
      Return Not IsNothing(m_refSimulationExpanderVM)
   End Function
   Friend Function SetRefMachinePanelVM(MachinePanelVM As MyMachinePanelVM) As Boolean
      m_refMachinePanelVM = MachinePanelVM
      Return Not IsNothing(m_refMachinePanelVM)
   End Function
   Friend Function SetRefOptionPanelVM(OptionPanelVM As OptionPanelVM) As Boolean
      m_refOptionPanelVM = OptionPanelVM
      Return Not IsNothing(m_refOptionPanelVM)
   End Function
   Friend Function SetRefDrawOptionPanelVM(DrawOptionPanelVM As DrawOptionPanelVM) As Boolean
      m_refDrawOptionPanelVM = DrawOptionPanelVM
      Return Not IsNothing(m_refDrawOptionPanelVM)
   End Function
   Friend Function SetRefMachiningOptionPanelVM(MachiningOptionPanelVM As MachiningOptionPanelVM) As Boolean
      m_refMachiningOptionPanelVM = MachiningOptionPanelVM
      Return Not IsNothing(m_refMachiningOptionPanelVM)
   End Function
   Friend Function SetRefEstimationsExpanderVM(EstimationsExpanderVM As EstimationsExpanderVM) As Boolean
      m_refEstimationsExpanderVM = EstimationsExpanderVM
      Return Not IsNothing(m_refEstimationsExpanderVM)
   End Function
   Friend Function SetRefOperationsListExpanderVM(OperationsListExpanderVM As OperationsListExpanderVM) As Boolean
      m_refOperationsListExpanderVM = OperationsListExpanderVM
      Return Not IsNothing(m_refOperationsListExpanderVM)
   End Function
   Friend Function SetRefOperationParametersExpanderVM(OperationParametersExpanderVM As OperationParametersExpanderVM) As Boolean
      m_refOperationParametersExpanderVM = OperationParametersExpanderVM
      Return Not IsNothing(m_refOperationParametersExpanderVM)
   End Function
   Friend Function SetRefMachiningTreeExpanderVM(MachiningTreeExpanderVM As MachiningTreeExpanderVM) As Boolean
      m_refMachiningTreeExpanderVM = MachiningTreeExpanderVM
      Return Not IsNothing(m_refMachiningTreeExpanderVM)
   End Function
   Friend Function SetRefMachGroupPanelVM(MachGroupPanelVM As MyMachGroupPanelVM) As Boolean
      LibMap.SetRefMachGroupPanelVM(MachGroupPanelVM)
      Return Not IsNothing(LibMap.refMachGroupPanelVM)
   End Function
   Friend Function SetRefInstrumentPanelVM(InstrumentPanelVM As InstrumentPanelVM) As Boolean
      m_refInstrumentPanelVM = InstrumentPanelVM
      Return Not IsNothing(m_refInstrumentPanelVM)
   End Function
   Friend Function SetRefManageLayerExpanderVM(ManageLayerExpanderVM As ManageLayerExpanderVM) As Boolean
      m_refManageLayerExpanderVM = ManageLayerExpanderVM
      Return Not IsNothing(m_refManageLayerExpanderVM)
   End Function
   Friend Function SetRefInputExpanderVM(InputExpanderVM As InputExpanderVM) As Boolean
      m_refInputExpanderVM = InputExpanderVM
      Return Not IsNothing(m_refInputExpanderVM)
   End Function
   Friend Function SetRefShowPanelVM(ShowPanelVM As ShowPanelVM) As Boolean
      m_refShowPanelVM = ShowPanelVM
      Return Not IsNothing(m_refShowPanelVM)
   End Function
   Friend Function SetRefInfoExpanderVM(InfoExpanderVM As InfoExpanderVM) As Boolean
      m_refInfoExpanderVM = InfoExpanderVM
      Return Not IsNothing(m_refInfoExpanderVM)
   End Function
   Friend Function SetRefDrawPanelVM(DrawPanelVM As DrawPanelVM) As Boolean
      m_refDrawPanelVM = DrawPanelVM
      Return Not IsNothing(m_refDrawPanelVM)
   End Function
   Friend Function SetRefProjectV(ProjectV As ProjectV) As Boolean
      m_refProjectV = ProjectV
      Return Not IsNothing(m_refProjectV)
   End Function
   Friend Function SetRefDoorPanelVM(DoorPanelVM As DoorPanelVM) As Boolean
      m_refDoorPanelVM = DoorPanelVM
      Return Not IsNothing(m_refDoorPanelVM)
   End Function
   Friend Function SetRefSpecialPanelVM(SpecialPanelVM As SpecialPanelVM) As Boolean
      m_refSpecialPanelVM = SpecialPanelVM
      Return Not IsNothing(m_refSpecialPanelVM)
   End Function
   Friend Function SetRefExecutePanelVM(ExecutePanelVM As ExecutePanelVM) As Boolean
      m_refExecutePanelVM = ExecutePanelVM
      Return Not IsNothing(m_refExecutePanelVM)
   End Function
   Friend Function SetRefBeamPanelVM(BeamPanelVM As BeamPanelVM) As Boolean
      m_refBeamPanelVM = BeamPanelVM
      Return Not IsNothing(m_refBeamPanelVM)
   End Function
   Friend Function SetRefWallPanelVM(WallPanelVM As WallPanelVM) As Boolean
      m_refWallPanelVM = WallPanelVM
      Return Not IsNothing(m_refWallPanelVM)
   End Function
   Friend Function SetRefBeamWallPanelVM(BeamWallPanelVM As BeamWallPanelVM) As Boolean
      m_refBeamWallPanelVM = BeamWallPanelVM
      Return Not IsNothing(m_refBeamWallPanelVM)
   End Function
   Friend Function SetRefGunStockPanelVM(GunStockPanelVM As GunStockPanelVM) As Boolean
      m_refGunStockPanelVM = GunStockPanelVM
      Return Not IsNothing(m_refGunStockPanelVM)
   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(LibMap.refStatusBarVM) AndAlso Not IsNothing(m_refProjectVM) AndAlso Not IsNothing(m_refTopCommandBarVM) AndAlso
             Not IsNothing(m_refFixtureParametersVM) AndAlso Not IsNothing(m_refSimulationExpanderVM) AndAlso Not IsNothing(m_refMachinePanelVM) AndAlso
             Not IsNothing(m_refOptionPanelVM) AndAlso Not IsNothing(m_refDrawOptionPanelVM) AndAlso Not IsNothing(m_refMachiningOptionPanelVM) AndAlso
             Not IsNothing(m_refEstimationsExpanderVM) AndAlso Not IsNothing(m_refOperationsListExpanderVM) AndAlso
             Not IsNothing(m_refOperationParametersExpanderVM) AndAlso Not IsNothing(m_refMachiningTreeExpanderVM) AndAlso
             Not IsNothing(LibMap.refMachGroupPanelVM) AndAlso Not IsNothing(m_refInstrumentPanelVM) AndAlso Not IsNothing(m_refManageLayerExpanderVM) AndAlso
             Not IsNothing(m_refInputExpanderVM) AndAlso Not IsNothing(m_refShowPanelVM) AndAlso Not IsNothing(m_refInfoExpanderVM) AndAlso
             Not IsNothing(m_refDrawPanelVM) AndAlso Not IsNothing(m_refProjectV) AndAlso Not IsNothing(m_refDoorPanelVM) AndAlso Not IsNothing(m_refSpecialPanelVM)
   End Function

#End Region    ' Init

#End Region    ' Program ViewModel Map

End Module