EgtDOORCreator/MainWindow/MainWindowViewModel.vb

Public Class MainWindowViewModel

   ' Modello del MainWindow (classe vera e propria)
   Private m_MainWindowModel As New MainWindowModel

   Private m_ProjectManagerViewModel As ProjectManagerViewModel
   Public ReadOnly Property ProjectManagerViewModel As ProjectManagerViewModel
      Get
         If IsNothing(m_ProjectManagerViewModel) Then
            m_ProjectManagerViewModel = New ProjectManagerViewModel(Me)
         End If
         Return m_ProjectManagerViewModel
      End Get
   End Property

   Private m_CompoPanel As CompoPanelView
   Public ReadOnly Property CompoPanel As CompoPanelView
      Get
         If IsNothing(m_CompoPanel) Then
            m_CompoPanel = New CompoPanelView
            m_CompoPanel.DataContext = New CompoPanelViewModel(Me)
         End If
         Return m_CompoPanel
      End Get
   End Property

   Private m_DoorManager As DoorManagerView
   Public ReadOnly Property DoorManager As DoorManagerView
      Get
         If IsNothing(m_DoorManager) Then
            m_DoorManager = New DoorManagerView
            m_DoorManager.DataContext = New DoorManagerViewModel(Me)
         End If
         Return m_DoorManager
      End Get
   End Property

   Private m_DoorParameters As DoorParametersView
   Public ReadOnly Property DoorParameters As DoorParametersView
      Get
         If IsNothing(m_DoorParameters) Then
            m_DoorParameters = New DoorParametersView
            m_DoorParameters.DataContext = New DoorParametersViewModel(Me)
         End If
         Return m_DoorParameters
      End Get
   End Property

End Class