egtstone3d/ViewPanel/ViewPanelVM.vb

Imports EgtUILib
Imports EgtWPFLib5

Public Class ViewPanelVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

#Region "Messages"

   Public ReadOnly Property LookFromTop_Msg
      Get
         Return EgtMsg(5257)
      End Get
   End Property

   Public ReadOnly Property LookFromBottom_Msg
      Get
         Return EgtMsg(5284)
      End Get
   End Property

   Public ReadOnly Property LookFromFront_Msg
      Get
         Return EgtMsg(5258)
      End Get
   End Property

   Public ReadOnly Property LookFromBack_Msg
      Get
         Return EgtMsg(5260)
      End Get
   End Property

   Public ReadOnly Property LookFromLeft_Msg
      Get
         Return EgtMsg(5259)
      End Get
   End Property

   Public ReadOnly Property LookFromRight_Msg
      Get
         Return EgtMsg(5261)
      End Get
   End Property

#End Region    ' Messages

   ' Definizione Comandi
   Dim m_cmdTopView As ICommand
   Dim m_cmdBottomView As ICommand
   Dim m_cmdFrontView As ICommand
   Dim m_cmdLeftView As ICommand
   Dim m_cmdBackView As ICommand
   Dim m_cmdRightView As ICommand

#End Region    ' Fields & Properties

#Region "COMMANDS"

#Region "TopViewCommand"

   ''' <summary>
   ''' Returns a command that do TopView.
   ''' </summary>
   Public ReadOnly Property TopViewCommand As ICommand
      Get
         If m_cmdTopView Is Nothing Then
            m_cmdTopView = New Command(AddressOf TopView)
         End If
         Return m_cmdTopView
      End Get
   End Property

   ''' <summary>
   ''' Execute the TopView.  This method is invoked by the TopViewCommand.
   ''' </summary>
   Public Sub TopView(ByVal param As Object)
      Map.refSceneHostVM.MainScene.TopView()
   End Sub

#End Region ' TopViewCommand

#Region "BottomViewCommand"

   ''' <summary>
   ''' Returns a command that do TopView.
   ''' </summary>
   Public ReadOnly Property BottomViewCommand As ICommand
      Get
         If m_cmdBottomView Is Nothing Then
            m_cmdBottomView = New Command(AddressOf BottomView)
         End If
         Return m_cmdBottomView
      End Get
   End Property

   ''' <summary>
   ''' Execute the BottomView.  This method is invoked by the BottomViewCommand.
   ''' </summary>
   Public Sub BottomView(ByVal param As Object)
      Map.refSceneHostVM.MainScene.BottomView()
   End Sub

#End Region ' BottomViewCommand

#Region "FrontViewCommand"

   ''' <summary>
   ''' Returns a command that do FrontView.
   ''' </summary>
   Public ReadOnly Property FrontViewCommand As ICommand
      Get
         If m_cmdFrontView Is Nothing Then
            m_cmdFrontView = New Command(AddressOf FrontView)
         End If
         Return m_cmdFrontView
      End Get
   End Property

   ''' <summary>
   ''' Execute the FrontView.  This method is invoked by the FrontViewCommand.
   ''' </summary>
   Public Sub FrontView(ByVal param As Object)
      Map.refSceneHostVM.MainScene.FrontView()
   End Sub

#End Region ' FrontViewCommand

#Region "LeftViewCommand"

   ''' <summary>
   ''' Returns a command that do LeftView.
   ''' </summary>
   Public ReadOnly Property LeftViewCommand As ICommand
      Get
         If m_cmdLeftView Is Nothing Then
            m_cmdLeftView = New Command(AddressOf LeftView)
         End If
         Return m_cmdLeftView
      End Get
   End Property

   ''' <summary>
   ''' Execute the LeftView.  This method is invoked by the LeftViewCommand.
   ''' </summary>
   Public Sub LeftView(ByVal param As Object)
      Map.refSceneHostVM.MainScene.LeftView()
   End Sub

#End Region ' LeftViewCommand

#Region "BackViewCommand"

   ''' <summary>
   ''' Returns a command that do BackView.
   ''' </summary>
   Public ReadOnly Property BackViewCommand As ICommand
      Get
         If m_cmdBackView Is Nothing Then
            m_cmdBackView = New Command(AddressOf BackView)
         End If
         Return m_cmdBackView
      End Get
   End Property

   ''' <summary>
   ''' Execute the BackView.  This method is invoked by the BackViewCommand.
   ''' </summary>
   Public Sub BackView(ByVal param As Object)
      Map.refSceneHostVM.MainScene.BackView()
   End Sub

#End Region ' BackViewCommand

#Region "RightViewCommand"

   ''' <summary>
   ''' Returns a command that do RightView.
   ''' </summary>
   Public ReadOnly Property RightViewCommand As ICommand
      Get
         If m_cmdRightView Is Nothing Then
            m_cmdRightView = New Command(AddressOf RightView)
         End If
         Return m_cmdRightView
      End Get
   End Property

   ''' <summary>
   ''' Execute the RightView.  This method is invoked by the RightViewCommand.
   ''' </summary>
   Public Sub RightView(ByVal param As Object)
      Map.refSceneHostVM.MainScene.RightView()
   End Sub

#End Region ' RightViewCommand

#End Region    ' Commands

End Class