Emmanuele Sassi
7184c20469
- Disattivati i bottoni del MachinePanel quando si aprono i dettagli di una operazione.
109 lines
3.8 KiB
VB.net
109 lines
3.8 KiB
VB.net
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_refSimulationExpanderVM As SimulationExpanderVM
|
|
Private m_refMachinePanelVM As MachinePanelVM
|
|
Private m_refOperationExpanderVM As OperationExpanderVM
|
|
|
|
#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 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 refSimulationExpanderVM As SimulationExpanderVM
|
|
Get
|
|
Return m_refSimulationExpanderVM
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property refMachinePanelVM As MachinePanelVM
|
|
Get
|
|
Return m_refMachinePanelVM
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property refOperationExpanderVM As OperationExpanderVM
|
|
Get
|
|
Return m_refOperationExpanderVM
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
Friend Function SetRefStatusBarVM(StatusBarVM As StatusBarVM) As Boolean
|
|
m_refStatusBarVM = StatusBarVM
|
|
Return Not IsNothing(m_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 SetRefSimulationExpanderVM(SimulationExpanderVM As SimulationExpanderVM) As Boolean
|
|
m_refSimulationExpanderVM = SimulationExpanderVM
|
|
Return Not IsNothing(m_refSimulationExpanderVM)
|
|
End Function
|
|
Friend Function SetRefMachinePanelVM(MachinePanelVM As MachinePanelVM) As Boolean
|
|
m_refMachinePanelVM = MachinePanelVM
|
|
Return Not IsNothing(m_refMachinePanelVM)
|
|
End Function
|
|
Friend Function SetRefOperationExpanderVM(OperationExpanderVM As OperationExpanderVM) As Boolean
|
|
m_refOperationExpanderVM = OperationExpanderVM
|
|
Return Not IsNothing(m_refOperationExpanderVM)
|
|
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_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_refOperationExpanderVM)
|
|
End Function
|
|
|
|
#End Region ' Init
|
|
|
|
#End Region ' Program ViewModel Map
|
|
|
|
End Module
|