Demetrio Cassarino
82 lines
1.9 KiB
VB.net
82 lines
1.9 KiB
VB.net
Imports EgtWPFLib5
|
|
Imports EgtUILib
|
|
|
|
Public Class ViewPanelProspectiveVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property Orthographic_Msg
|
|
Get
|
|
Return EgtMsg(110028)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Prospective_Msg
|
|
Get
|
|
Return EgtMsg(110029)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
' Definizione Comandi
|
|
Dim m_cmdOrthographicView As ICommand
|
|
Dim m_cmdProspectiveView As ICommand
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "OrthographicViewCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that do TopView.
|
|
''' </summary>
|
|
Public ReadOnly Property OrthographicViewCommand As ICommand
|
|
Get
|
|
If m_cmdOrthographicView Is Nothing Then
|
|
m_cmdOrthographicView = New Command(AddressOf OrthographicView)
|
|
End If
|
|
Return m_cmdOrthographicView
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Execute the TopView. This method is invoked by the OrthographicViewCommand.
|
|
''' </summary>
|
|
Public Sub OrthographicView(ByVal param As Object)
|
|
EgtSetCameraType(True, True)
|
|
End Sub
|
|
|
|
#End Region ' OrthographicViewCommand
|
|
|
|
#Region "ProspectiveViewCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that do TopView.
|
|
''' </summary>
|
|
Public ReadOnly Property ProspectiveViewCommand As ICommand
|
|
Get
|
|
If m_cmdProspectiveView Is Nothing Then
|
|
m_cmdProspectiveView = New Command(AddressOf ProspectiveView)
|
|
End If
|
|
Return m_cmdProspectiveView
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Execute the BottomView. This method is invoked by the ProspectiveViewCommand.
|
|
''' </summary>
|
|
Public Sub ProspectiveView(ByVal param As Object)
|
|
EgtSetCameraType(False, True)
|
|
End Sub
|
|
|
|
#End Region ' ProspectiveViewCommand
|
|
|
|
#End Region ' Commands
|
|
|
|
End Class
|