Demetrio Cassarino
119 lines
3.4 KiB
VB.net
119 lines
3.4 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Public Module LibMap
|
|
|
|
Private m_refStatusBarVM As StatusBarVM
|
|
Private WithEvents m_refSceneHostVM As SceneHostVM
|
|
Private m_refShowPanelVM As ShowPanelVM
|
|
Private m_refMachinePanelVM As MachinePanelVM
|
|
Private m_refMachGroupPanelVM As MachGroupPanelVM
|
|
Private m_refWaterjetDbWindowVM As WaterjetDbWindowVM
|
|
Private m_refMachiningDbWindowVM As MachiningDbWindowVM
|
|
Private m_refToolDbWindowVM As ToolDbWindowVM
|
|
|
|
#Region "Get"
|
|
|
|
Public ReadOnly Property refStatusBarVM As StatusBarVM
|
|
Get
|
|
Return m_refStatusBarVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refSceneHostVM As SceneHostVM
|
|
Get
|
|
Return m_refSceneHostVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refShowPanelVM As ShowPanelVM
|
|
Get
|
|
Return m_refShowPanelVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refMachinePanelVM As MachinePanelVM
|
|
Get
|
|
Return m_refMachinePanelVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refMachGroupPanelVM As MachGroupPanelVM
|
|
Get
|
|
Return m_refMachGroupPanelVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refWaterjetDbWindowVM As WaterjetDbWindowVM
|
|
Get
|
|
Return m_refWaterjetDbWindowVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refMachiningDbWindowVM As MachiningDbWindowVM
|
|
Get
|
|
Return m_refMachiningDbWindowVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refToolDbWindowVM As ToolDbWindowVM
|
|
Get
|
|
Return m_refToolDbWindowVM
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
Public Function SetRefStatusBarVM(StatusBarVM As StatusBarVM) As Boolean
|
|
m_refStatusBarVM = StatusBarVM
|
|
Return Not IsNothing(m_refStatusBarVM)
|
|
End Function
|
|
|
|
Public Function SetRefSceneHostVM(SceneHostVM As SceneHostVM) As Boolean
|
|
m_refSceneHostVM = SceneHostVM
|
|
Return Not IsNothing(m_refSceneHostVM)
|
|
End Function
|
|
|
|
Public Function SetRefShowPanelVM(ShowPanelVM As ShowPanelVM) As Boolean
|
|
m_refShowPanelVM = ShowPanelVM
|
|
Return Not IsNothing(m_refShowPanelVM)
|
|
End Function
|
|
|
|
Friend Function SetRefMachinePanelVM(MachinePanelVM As MachinePanelVM) As Boolean
|
|
m_refMachinePanelVM = MachinePanelVM
|
|
Return Not IsNothing(m_refMachinePanelVM)
|
|
End Function
|
|
|
|
Public Function SetRefMachGroupPanelVM(MachGroupPanelVM As MachGroupPanelVM) As Boolean
|
|
m_refMachGroupPanelVM = MachGroupPanelVM
|
|
Return Not IsNothing(m_refMachGroupPanelVM)
|
|
End Function
|
|
|
|
Public Function SetRefWaterjetDbWindowVM(WaterjetDbWindowVM As WaterjetDbWindowVM) As Boolean
|
|
m_refWaterjetDbWindowVM = WaterjetDbWindowVM
|
|
Return Not IsNothing(m_refWaterjetDbWindowVM)
|
|
End Function
|
|
|
|
Public Function SetRefMachiningDbWindowVM(MachiningDbWindowVM As MachiningDbWindowVM) As Boolean
|
|
m_refMachiningDbWindowVM = MachiningDbWindowVM
|
|
Return Not IsNothing(m_refMachiningDbWindowVM)
|
|
End Function
|
|
|
|
Public Function SetRefToolDbWindowVM(ToolDbWindowVM As ToolDbWindowVM) As Boolean
|
|
m_refToolDbWindowVM = ToolDbWindowVM
|
|
Return Not IsNothing(m_refToolDbWindowVM)
|
|
End Function
|
|
|
|
#End Region ' Set
|
|
|
|
#Region "Init"
|
|
|
|
Public Function EndInit() As Boolean
|
|
Return Not IsNothing(m_refSceneHostVM)
|
|
End Function
|
|
|
|
#End Region ' Init
|
|
|
|
End Module
|