Emmanuele Sassi
71a280e41d
- aggiunta gestione chiave di protezione con limite macchine utilizzabili - impostata cartella dati da programma per script lua
111 lines
3.4 KiB
VB.net
111 lines
3.4 KiB
VB.net
|
|
Module Map
|
|
|
|
Private m_refMainWindowVM As MainWindowVM
|
|
Private m_refSplashScreen As SplashScreen
|
|
|
|
'Private m_refProjectVM As ProjectVM
|
|
'Private m_refSecondaryWindowVM As SecondaryWindowVM
|
|
'Private m_refSecondaryWindowV As SecondaryWindowV
|
|
|
|
#Region "Get"
|
|
|
|
Public ReadOnly Property refMainWindowVM As MainWindowVM
|
|
Get
|
|
Return m_refMainWindowVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refSplashScreen As SplashScreen
|
|
Get
|
|
Return m_refSplashScreen
|
|
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 refProjectVM As ProjectVM
|
|
' Get
|
|
' Return m_refProjectVM
|
|
' End Get
|
|
'End Property
|
|
|
|
'Public ReadOnly Property refSecondaryWindowVM As SecondaryWindowVM
|
|
' Get
|
|
' Return m_refSecondaryWindowVM
|
|
' End Get
|
|
'End Property
|
|
'Public ReadOnly Property refSecondaryWindowV As SecondaryWindowV
|
|
' Get
|
|
' Return m_refSecondaryWindowV
|
|
' End Get
|
|
'End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
Friend Function SetRefSplashScreen(SplashScreen As SplashScreen) As Boolean
|
|
m_refSplashScreen = SplashScreen
|
|
Return Not IsNothing(m_refSplashScreen)
|
|
End Function
|
|
|
|
'Friend Function SetRefMyStatusBarVM(MyStatusBarVM As MyStatusBarVM) As Boolean
|
|
' LibMap.SetRefStatusBarVM(MyStatusBarVM)
|
|
' 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 SetRefProjectVM(ProjectVM As ProjectVM) As Boolean
|
|
' m_refProjectVM = ProjectVM
|
|
' Return Not IsNothing(m_refProjectVM)
|
|
'End Function
|
|
|
|
'Friend Function SetRefSecondaryWindowVM(SecondaryWindowVM As SecondaryWindowVM) As Boolean
|
|
' m_refSecondaryWindowVM = SecondaryWindowVM
|
|
' Return Not IsNothing(m_refSecondaryWindowVM)
|
|
'End Function
|
|
'Friend Function SetRefSecondaryWindowV(SecondaryWindowV As SecondaryWindowV) As Boolean
|
|
' m_refSecondaryWindowV = SecondaryWindowV
|
|
' Return Not IsNothing(m_refSecondaryWindowV)
|
|
'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)
|
|
End Function
|
|
|
|
#End Region ' Init
|
|
|
|
End Module
|