Demetrio Cassarino
102 lines
2.3 KiB
VB.net
102 lines
2.3 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) ' Ortografica
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Prospective_Msg
|
|
Get
|
|
Return EgtMsg(110029) ' Prospettica
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
' Definizione Comandi
|
|
Dim m_cmdOrthographicView As ICommand
|
|
Dim m_cmdProspectiveView As ICommand
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
Map.SetRefViewPanelProspectiveVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "METHODS"
|
|
|
|
''' <summary>
|
|
''' Funzione che aggiorna i messaggi del Manager
|
|
''' </summary>
|
|
Friend Sub UpdateMessageViewProspectivePanel()
|
|
NotifyPropertyChanged(NameOf(Orthographic_Msg))
|
|
NotifyPropertyChanged(NameOf(Prospective_Msg))
|
|
End Sub
|
|
|
|
#End Region ' Methods
|
|
|
|
#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
|