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_refMachiningTreeViewItem As MachiningTreeViewItem
|
|
Private m_refToolTreeViewItem As ToolTreeViewItem
|
|
|
|
#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 refMachiningTreeViewItem As MachiningTreeViewItem
|
|
Get
|
|
Return m_refMachiningTreeViewItem
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refToolTreeViewItem As ToolTreeViewItem
|
|
Get
|
|
Return m_refToolTreeViewItem
|
|
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 SetRefMachiningTreeViewItem(MachiningTreeViewItem As MachiningTreeViewItem) As Boolean
|
|
m_refMachiningTreeViewItem = MachiningTreeViewItem
|
|
Return Not IsNothing(m_refMachiningTreeViewItem)
|
|
End Function
|
|
|
|
Public Function SetRefToolTreeViewItem(ToolTreeViewItem As ToolTreeViewItem) As Boolean
|
|
m_refToolTreeViewItem = ToolTreeViewItem
|
|
Return Not IsNothing(m_refToolTreeViewItem)
|
|
End Function
|
|
|
|
#End Region ' Set
|
|
|
|
#Region "Init"
|
|
|
|
Public Function EndInit() As Boolean
|
|
Return Not IsNothing(m_refSceneHostVM)
|
|
End Function
|
|
|
|
#End Region ' Init
|
|
|
|
End Module
|