EgtCAM5 :

- Cambiati nomi classi e file.
2018-04-10 17:08:35 +00:00
parent 4e2801a1c4
commit a4b5cd4834
144 changed files with 517 additions and 521 deletions
@@ -0,0 +1,67 @@
+Module Map
+
+#Region "Program ViewModel Map"
+
+   Private m_refMainWindowVM As EgtCAM5.MainWindowVM
+   Private m_refStatusBarVM As EgtCAM5.StatusBarVM
+   Private m_refTopCommandBarVM As EgtCAM5.TopCommandBarVM
+   Private m_refProjectVM As EgtCAM5.ProjectVM
+
+#Region "Get"
+
+   Public ReadOnly Property refMainWindowVM As EgtCAM5.MainWindowVM
+      Get
+         Return m_refMainWindowVM
+      End Get
+   End Property
+   Public ReadOnly Property refStatusBarVM As EgtCAM5.StatusBarVM
+      Get
+         Return m_refStatusBarVM
+      End Get
+   End Property
+   Public ReadOnly Property refTopCommandBarVM As EgtCAM5.TopCommandBarVM
+      Get
+         Return m_refTopCommandBarVM
+      End Get
+   End Property
+   Public ReadOnly Property refProjectVM As EgtCAM5.ProjectVM
+      Get
+         Return m_refProjectVM
+      End Get
+   End Property
+
+#End Region    ' Get
+
+#Region "Set"
+
+   Friend Function SetRefStatusBarVM(StatusBarVM As EgtCAM5.StatusBarVM) As Boolean
+      m_refStatusBarVM = StatusBarVM
+      Return Not IsNothing(m_refStatusBarVM)
+   End Function
+   Friend Function SetRefTopCommandBarVM(TopCommandBarVM As EgtCAM5.TopCommandBarVM) As Boolean
+      m_refTopCommandBarVM = TopCommandBarVM
+      Return Not IsNothing(m_refTopCommandBarVM)
+   End Function
+   Friend Function SetRefProjectVM(ProjectVM As EgtCAM5.ProjectVM) As Boolean
+      m_refProjectVM = ProjectVM
+      Return Not IsNothing(m_refProjectVM)
+   End Function
+
+#End Region    ' Set
+
+#Region "Init"
+
+   Friend Function BeginInit(MainWindowVM As EgtCAM5.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)
+   End Function
+
+#End Region    ' Init
+
+#End Region    ' Program ViewModel Map
+
+End Module