Emmanuele Sassi
90 lines
2.1 KiB
VB.net
90 lines
2.1 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Public Class CurrMachiningPanelVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_CurrMachining As CurrMachining
|
|
Public ReadOnly Property CurrMachining As CurrMachining
|
|
Get
|
|
Return m_CurrMachining
|
|
End Get
|
|
End Property
|
|
Friend Sub SetCurrMachining(CurrMachining As CurrMachining)
|
|
m_CurrMachining = CurrMachining
|
|
NotifyPropertyChanged(NameOf(CurrMachining))
|
|
Map.refTopPanelVM.UpdateCurrMachining()
|
|
End Sub
|
|
|
|
' Definizione comandi
|
|
Private m_cmdOk As ICommand
|
|
Private m_cmdCancel As ICommand
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTORS"
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in Map
|
|
Map.SetRefCurrMachiningPanelVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
Friend Sub ReadMachParamFromSelPart()
|
|
If IsNothing(Map.refTopPanelVM.SelPart) Then Return
|
|
Dim nData As Integer = 0
|
|
m_CurrMachining = New CurrMachining(Map.refTopPanelVM.SelPart.nPartId)
|
|
SetCurrMachining(m_CurrMachining)
|
|
' aggiorno parametri mostrati nella barra
|
|
NotifyPropertyChanged(NameOf(CurrMachining))
|
|
Map.refTopPanelVM.UpdateCurrMachining()
|
|
End Sub
|
|
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "Ok"
|
|
|
|
Public ReadOnly Property Ok_Command As ICommand
|
|
Get
|
|
If m_cmdOk Is Nothing Then
|
|
m_cmdOk = New Command(AddressOf Ok)
|
|
End If
|
|
Return m_cmdOk
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Ok()
|
|
' scrivo i parametri modificati
|
|
m_CurrMachining.WriteCurrParamInPart(Map.refTopPanelVM.SelPart.nPartId)
|
|
' ripristino modalita' standard
|
|
Map.refTopPanelVM.SelPage = Pages.MODIFY
|
|
End Sub
|
|
|
|
#End Region ' Ok
|
|
|
|
#Region "Cancel"
|
|
|
|
Public ReadOnly Property Cancel_Command As ICommand
|
|
Get
|
|
If m_cmdCancel Is Nothing Then
|
|
m_cmdCancel = New Command(AddressOf Cancel)
|
|
End If
|
|
Return m_cmdCancel
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Cancel()
|
|
' ripristino modalita' standard
|
|
Map.refTopPanelVM.SelPage = Pages.MODIFY
|
|
End Sub
|
|
|
|
#End Region ' Cancel
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|
|
|