EgtDOORCreator/Map.vb

Module Map

   Private m_refMainWindowVM As MainWindowVM
   Private m_refStatusBarVM As StatusBarVM
   Private m_refProjectManagerVM As ProjectManagerVM
   Private m_refCompoPanelVM As CompoPanelVM
   Private m_refAssemblyManagerVM As AssemblyManagerVM
   Private m_refPartPageVM As PartPageVM
   Private m_refSceneManagerVM As SceneManagerVM

   Private m_refInstrumentPanelVM As InstrumentPanelVM
   Private m_refPopUpViewPanelVM As PopUpViewPanelVM
   Private m_refRefreshPanelVM As RefreshPanelVM
   Private m_refShowPanelVM As ShowPanelVM

   Private m_refAssemblyPageVM As AssemblyPageVM

   Private m_refOrderVM As OrderVM

#Region "Get"

   Public ReadOnly Property refMainWindowVM As MainWindowVM
      Get
         Return m_refMainWindowVM
      End Get
   End Property

   Public ReadOnly Property refStatusBarVM As StatusBarVM
      Get
         Return m_refStatusBarVM
      End Get
   End Property

   Public ReadOnly Property refProjectManagerVM As ProjectManagerVM
      Get
         Return m_refProjectManagerVM
      End Get
   End Property

   Public ReadOnly Property refCompoPanelVM As CompoPanelVM
      Get
         Return m_refCompoPanelVM
      End Get
   End Property

   Public ReadOnly Property refAssemblyManagerVM As AssemblyManagerVM
      Get
         Return m_refAssemblyManagerVM
      End Get
   End Property

   Public ReadOnly Property refPartPageVM As PartPageVM
      Get
         Return m_refPartPageVM
      End Get
   End Property

   Public ReadOnly Property refSceneManagerVM As SceneManagerVM
      Get
         Return m_refSceneManagerVM
      End Get
   End Property

   Public ReadOnly Property refInstrumentPanelVM As InstrumentPanelVM
      Get
         Return m_refInstrumentPanelVM
      End Get
   End Property

   Public ReadOnly Property refPopUpViewPanelVM As PopUpViewPanelVM
      Get
         Return m_refPopUpViewPanelVM
      End Get
   End Property

   Public ReadOnly Property refRefreshPanelVM As RefreshPanelVM
      Get
         Return m_refRefreshPanelVM
      End Get
   End Property

   Public ReadOnly Property refShowPanelVM As ShowPanelVM
      Get
         Return m_refShowPanelVM
      End Get
   End Property

   Public ReadOnly Property refAssemblyPageVM As AssemblyPageVM
      Get
         Return m_refAssemblyPageVM
      End Get
   End Property

   Public ReadOnly Property refOrderVM As OrderVM
      Get
         Return m_refOrderVM
      End Get
   End Property

#End Region    ' Get

#Region "Set"

   Friend Function SetRefMainWindowVM(MainWindowVM As MainWindowVM) As Boolean
      m_refMainWindowVM = MainWindowVM
      Return Not IsNothing(m_refMainWindowVM)
   End Function

   Friend Function SetRefStatusBarVM(StatusBarVM As StatusBarVM) As Boolean
      m_refStatusBarVM = StatusBarVM
      Return Not IsNothing(m_refStatusBarVM)
   End Function

   Friend Function SetRefProjectManagerVM(ProjectManagerVM As ProjectManagerVM) As Boolean
      m_refProjectManagerVM = ProjectManagerVM
      Return Not IsNothing(m_refProjectManagerVM)
   End Function

   Friend Function SetRefCompoPanelVM(CompoPanelVM As CompoPanelVM) As Boolean
      m_refCompoPanelVM = CompoPanelVM
      Return Not IsNothing(m_refCompoPanelVM)
   End Function

   Friend Function SetRefDoorManagerVM(DoorManagerVM As AssemblyManagerVM) As Boolean
      m_refAssemblyManagerVM = DoorManagerVM
      Return Not IsNothing(m_refAssemblyManagerVM)
   End Function

   Friend Function SetRefDoorParametersVM(DoorParametersVM As PartPageVM) As Boolean
      m_refPartPageVM = DoorParametersVM
      Return Not IsNothing(m_refPartPageVM)
   End Function

   Friend Function SetRefSceneManagerVM(SceneManagerVM As SceneManagerVM) As Boolean
      m_refSceneManagerVM = SceneManagerVM
      Return Not IsNothing(m_refSceneManagerVM)
   End Function

   Friend Function SetRefInstrumentPanelVM(InstrumentPanelVM As InstrumentPanelVM) As Boolean
      m_refInstrumentPanelVM = InstrumentPanelVM
      Return Not IsNothing(m_refInstrumentPanelVM)
   End Function

   Friend Function SetRefPopUpViewPanelVM(PopUpViewPanelVM As PopUpViewPanelVM) As Boolean
      m_refPopUpViewPanelVM = PopUpViewPanelVM
      Return Not IsNothing(m_refPopUpViewPanelVM)
   End Function

   Friend Function SetRefRefreshPanelVM(RefreshPanelVM As RefreshPanelVM) As Boolean
      m_refRefreshPanelVM = RefreshPanelVM
      Return Not IsNothing(m_refRefreshPanelVM)
   End Function

   Friend Function SetRefShowPanelVM(ShowPanelVM As ShowPanelVM) As Boolean
      m_refShowPanelVM = ShowPanelVM
      Return Not IsNothing(m_refShowPanelVM)
   End Function

   Friend Function SetRefJambPageVM(JambPageVM As AssemblyPageVM) As Boolean
      m_refAssemblyPageVM = JambPageVM
      Return Not IsNothing(m_refAssemblyPageVM)
   End Function

   Friend Function SetRefOrderVM(OrderVM As OrderVM) As Boolean
      m_refOrderVM = OrderVM
      Return Not IsNothing(m_refOrderVM)
   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_refStatusBarVM) AndAlso
             Not IsNothing(m_refProjectManagerVM) AndAlso Not IsNothing(m_refCompoPanelVM) AndAlso
             Not IsNothing(m_refAssemblyManagerVM) AndAlso Not IsNothing(m_refPartPageVM) AndAlso
             Not IsNothing(m_refSceneManagerVM)

   End Function

#End Region    ' Init
End Module