Emmanuele Sassi
59 lines
1.7 KiB
VB.net
59 lines
1.7 KiB
VB.net
Friend Module DxfImportWindowMap
|
|
|
|
Private m_refDxfImportWindowVM As DxfImportWindowVM
|
|
Private m_refDxfImportSceneHostV As DxfImportSceneHostV
|
|
Private m_refUnderDrillControlVM As UnderDrillControlVM
|
|
|
|
#Region "Get"
|
|
|
|
Public ReadOnly Property refDxfImportWindowVM As DxfImportWindowVM
|
|
Get
|
|
Return m_refDxfImportWindowVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refDxfImportSceneHostV As DxfImportSceneHostV
|
|
Get
|
|
Return m_refDxfImportSceneHostV
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refUnderDrillControlVM As UnderDrillControlVM
|
|
Get
|
|
Return m_refUnderDrillControlVM
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
Friend Function SetRefDxfImportSceneHostV(DxfImportSceneHostV As DxfImportSceneHostV) As Boolean
|
|
m_refDxfImportSceneHostV = DxfImportSceneHostV
|
|
Return Not IsNothing(m_refDxfImportSceneHostV)
|
|
End Function
|
|
|
|
Friend Function SetRefUnderDrillControlVM(UnderDrillControlVM As UnderDrillControlVM) As Boolean
|
|
m_refUnderDrillControlVM = UnderDrillControlVM
|
|
Return Not IsNothing(m_refUnderDrillControlVM)
|
|
End Function
|
|
|
|
#End Region ' Set
|
|
|
|
#Region "Init"
|
|
|
|
Friend Function BeginInit(DxfImportWindowVM As DxfImportWindowVM) As Boolean
|
|
m_refDxfImportWindowVM = DxfImportWindowVM
|
|
Return Not IsNothing(m_refDxfImportWindowVM)
|
|
End Function
|
|
|
|
Friend Function EndInit() As Boolean
|
|
' Verifico se tutti i pezzi necessari sono stati caricati
|
|
Return Not IsNothing(m_refDxfImportWindowVM) AndAlso Not IsNothing(m_refDxfImportSceneHostV) AndAlso
|
|
Not IsNothing(m_refUnderDrillControlVM)
|
|
End Function
|
|
|
|
#End Region ' Init
|
|
|
|
End Module
|