Demetrio Cassarino
69 lines
1.4 KiB
VB.net
69 lines
1.4 KiB
VB.net
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(110010).ToUpper()
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
' Definizione Comandi
|
|
Private m_HomeCmd As ICommand
|
|
Private m_ParametricoCmd As ICommand
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#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
|
|
|
|
#End Region ' Commands
|
|
|
|
End Class
|