egtstone3d/ProjManager/ProjManagerVM.vb

Imports EgtWPFLib5
Imports EgtUILib

Public Class ProjManagerVM

#Region "FIELDS & PROPERTIES"

#Region "Messages"

   Public ReadOnly Property HomeTab_Msg
      Get
         Return EgtMsg(110010).ToUpper()
      End Get
   End Property

   Public ReadOnly Property Parametrico_Msg
      Get
         Return EgtMsg(110011).ToUpper()
      End Get
   End Property

   Public ReadOnly Property Save_Msg
      Get
         Return EgtMsg(110013)
      End Get
   End Property

#End Region    ' Messages

   ' Definizione Comandi
   Private m_HomeCmd As ICommand
   Private m_ParametricoCmd As ICommand
   Private m_SaveFileCmd As ICommand

#End Region    ' Fields & Properties

#Region "METHODS"

   Public Sub Save()
      Map.refSceneHostVM.SaveProject()
   End Sub

#End Region    ' Methods

#Region "COMMANDS"

#Region "HomeCmd"

   Public ReadOnly Property HomeCmd As ICommand
      Get
         If IsNothing(m_HomeCmd) Then
            m_HomeCmd = New Command(AddressOf Home)
         End If
         Return m_HomeCmd
      End Get
   End Property

   Private Sub Home()
      Map.refTopPanelVM.SetSelTopOption(TopPanelVM.TopOption.OPTIONS)
   End Sub

#End Region    ' HomeCmd

#Region "ParametricoCmd"

   Public ReadOnly Property ParametricoCmd As ICommand
      Get
         If IsNothing(m_ParametricoCmd) Then
            m_ParametricoCmd = New Command(AddressOf Parametrico)
         End If
         Return m_ParametricoCmd
      End Get
   End Property

   Private Sub Parametrico()
      Map.refTopPanelVM.SetSelTopOption(TopPanelVM.TopOption.PARAMETRICO)
   End Sub

#End Region    ' ParametricoCmd

#Region "SaveFileCmd"

   Public ReadOnly Property SaveFileCmd As ICommand
      Get
         If IsNothing(m_SaveFileCmd) Then
            m_SaveFileCmd = New Command(AddressOf SaveFile)
         End If
         Return m_SaveFileCmd
      End Get
   End Property

   Private Sub SaveFile()
      Save()
   End Sub

#End Region    ' SaveFileCmd

#End Region    ' Commands

End Class