Emmanuele Sassi
394 lines
13 KiB
VB.net
394 lines
13 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Module Map
|
|
|
|
Private m_refMainWindowVM As MainWindowVM
|
|
'Private m_refMyStatusBarVM As MyStatusBarVM
|
|
''Private m_refProjManagerVM As ProjManagerVM
|
|
'Private m_refSupervisorManagerVM As SupervisorManagerVM
|
|
'Private m_refProjectVM As ProjectVM
|
|
'Private m_refMainMenuVM As MainMenuVM
|
|
'Private m_refMachinePanelVM As MachinePanelVM
|
|
'Private m_refMyMachGroupPanelVM As MyMachGroupPanelVM
|
|
'Private m_refLeftPanelVM As LeftPanelVM
|
|
Private m_refMachCommandMessagePanelVM As MachCommandMessagePanelVM
|
|
Private m_refAxesPanelVM As AxesPanelVM
|
|
'Private m_refBottomPanelVM As BottomPanelVM
|
|
''Private m_refShowBeamPanelVM As ShowBeamPanelVM
|
|
'Private m_refConfigurationPageVM As ConfigurationPageVM
|
|
'Private m_refRawPartListVM As RawPartListVM
|
|
''Private m_refWarehouseWndVM As WarehouseWndVM
|
|
''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_refMachManaging As MachManaging
|
|
'Private m_refCALCPanelVM As CALCPanelVM
|
|
'Private m_refSupervisorMachGroupPanelVM As SupervisorMachGroupPanelVM
|
|
'Private m_refPartInRawPartListVM As PartInRawPartListVM
|
|
'Private m_refFeatureInPartInRawPartListVM As FeatureInPartInRawPartListVM
|
|
|
|
#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 refSupervisorManagerVM As SupervisorManagerVM
|
|
' Get
|
|
' Return m_refSupervisorManagerVM
|
|
' End Get
|
|
'End Property
|
|
|
|
'Public ReadOnly Property refProjectVM As ProjectVM
|
|
' Get
|
|
' Return m_refProjectVM
|
|
' End Get
|
|
'End Property
|
|
|
|
'Public ReadOnly Property refSceneHostVM As SceneHostVM
|
|
' Get
|
|
' Return LibMap.refSceneHostVM
|
|
' 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 refMachGroupPanelVM As MyMachGroupPanelVM
|
|
' Get
|
|
' Return m_refMyMachGroupPanelVM
|
|
' End Get
|
|
'End Property
|
|
|
|
Public ReadOnly Property refMachCommandMessagePanelVM As MachCommandMessagePanelVM
|
|
Get
|
|
Return m_refMachCommandMessagePanelVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refAxesPanelVM As AxesPanelVM
|
|
Get
|
|
Return m_refAxesPanelVM
|
|
End Get
|
|
End Property
|
|
|
|
'Public ReadOnly Property refCALCPanelVM As CALCPanelVM
|
|
' Get
|
|
' Return m_refCALCPanelVM
|
|
' End Get
|
|
'End Property
|
|
|
|
'Public ReadOnly Property refSupervisorMachGroupPanelVM As SupervisorMachGroupPanelVM
|
|
' Get
|
|
' Return m_refSupervisorMachGroupPanelVM
|
|
' 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 refWarehouseWndVM As WarehouseWndVM
|
|
'' Get
|
|
'' Return m_refWarehouseWndVM
|
|
'' 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 refFeatureInPartInRawPartListVM As FeatureInPartInRawPartListVM
|
|
' Get
|
|
' Return m_refFeatureInPartInRawPartListVM
|
|
' End Get
|
|
'End Property
|
|
|
|
'Public ReadOnly Property refPartInRawPartListVM As PartInRawPartListVM
|
|
' Get
|
|
' Return m_refPartInRawPartListVM
|
|
' End Get
|
|
'End Property
|
|
|
|
Public ReadOnly Property refMachManaging As MachManaging
|
|
Get
|
|
Return m_refMachManaging
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
'Friend Function SetRefMyStatusBarVM(StatusBarVM As StatusBarVM) As Boolean
|
|
' LibMap.SetRefStatusBarVM(StatusBarVM)
|
|
' 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 SetRefSupervisorManagerVM(SupervisorManagerVM As SupervisorManagerVM) As Boolean
|
|
' m_refSupervisorManagerVM = SupervisorManagerVM
|
|
' Return Not IsNothing(m_refSupervisorManagerVM)
|
|
'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 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 SetRefMachGroupPanelVM(MachGroupPanelVM As MyMachGroupPanelVM) As Boolean
|
|
' m_refMyMachGroupPanelVM = MachGroupPanelVM
|
|
' Return Not IsNothing(m_refMyMachGroupPanelVM)
|
|
'End Function
|
|
|
|
Friend Function SetRefMachCommandMessagePanelVM(MachCommandMessagePanelVM As MachCommandMessagePanelVM) As Boolean
|
|
m_refMachCommandMessagePanelVM = MachCommandMessagePanelVM
|
|
Return Not IsNothing(m_refMachCommandMessagePanelVM)
|
|
End Function
|
|
|
|
Friend Function SetRefAxesPanelVM(AxesPanelVM As AxesPanelVM) As Boolean
|
|
m_refAxesPanelVM = AxesPanelVM
|
|
Return Not IsNothing(m_refAxesPanelVM)
|
|
End Function
|
|
|
|
'Friend Function SetRefCALCPanelVM(CALCPanelVM As CALCPanelVM) As Boolean
|
|
' m_refCALCPanelVM = CALCPanelVM
|
|
' Return Not IsNothing(m_refCALCPanelVM)
|
|
'End Function
|
|
|
|
'Friend Function SetRefSupervisorMachGroupPanelVM(SupervisorMachGroupPanelVM As SupervisorMachGroupPanelVM) As Boolean
|
|
' m_refSupervisorMachGroupPanelVM = SupervisorMachGroupPanelVM
|
|
' Return Not IsNothing(m_refSupervisorMachGroupPanelVM)
|
|
'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 SetRefWarehouseWndVM(WarehouseWndVM As WarehouseWndVM) As Boolean
|
|
'' m_refWarehouseWndVM = WarehouseWndVM
|
|
'' Return Not IsNothing(m_refWarehouseWndVM)
|
|
''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 SetRefMachManaging(MachManaging As MachManaging) As Boolean
|
|
m_refMachManaging = MachManaging
|
|
Return Not IsNothing(m_refMachManaging)
|
|
End Function
|
|
|
|
'Friend Function SetRefFeatureInPartInRawPartListVM(FeatureInPartInRawPartListVM As FeatureInPartInRawPartListVM) As Boolean
|
|
' m_refFeatureInPartInRawPartListVM = FeatureInPartInRawPartListVM
|
|
' Return Not IsNothing(m_refFeatureInPartInRawPartListVM)
|
|
'End Function
|
|
|
|
'Friend Function SetRefPartInRawPartListVM(PartInRawPartListVM As PartInRawPartListVM) As Boolean
|
|
' m_refPartInRawPartListVM = PartInRawPartListVM
|
|
' Return Not IsNothing(m_refPartInRawPartListVM)
|
|
'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(m_refMainMenuVM) AndAlso
|
|
Not IsNothing(m_refMachCommandMessagePanelVM) AndAlso Not IsNothing(m_refAxesPanelVM) AndAlso
|
|
LibMap.EndInit()
|
|
'Not IsNothing(LibMap.refStatusBarVM) AndAlso 'Not IsNothing(m_refProjManagerVM) AndAlso Not IsNothing(m_refProdManagerVM) AndAlso
|
|
'Not IsNothing(m_refConfigurationPageVM) AndAlso Not IsNothing(m_refFeatureInPartInRawPartListVM) AndAlso
|
|
'Not IsNothing(m_refPartInRawPartListVM) AndAlso
|
|
'Not IsNothing(LibMap.refSceneHostVM) AndAlso Not IsNothing(LibMap.refShowPanelVM) AndAlso
|
|
'Not IsNothing(m_refMachinePanelVM) AndAlso Not IsNothing(LibMap.refMachGroupPanelVM) AndAlso Not IsNothing(m_refRawPartListVM) AndAlso 'Not IsNothing(m_refWarehouseWndVM) AndAlso Not IsNothing(m_refShowBeamPanelVM) AndAlso
|
|
End Function
|
|
|
|
#End Region ' Init
|
|
|
|
End Module
|