Dario Sassi
22c13fad6e
- aggiunta gestione GunStock - correzione gestione utensili per calcolo automatico.
70 lines
2.0 KiB
VB.net
70 lines
2.0 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
|
|
Namespace EgtCAM5
|
|
|
|
Public Class GunStockPanelViewModel
|
|
Inherits ViewModelBase
|
|
|
|
Public ReadOnly Property MruGunStockNames As ObservableCollection(Of String)
|
|
Get
|
|
Return IniFile.m_MruGunStock.m_FileNames
|
|
End Get
|
|
End Property
|
|
|
|
' Definizione comandi
|
|
Private m_cmdGunStock As ICommand
|
|
Private Shared m_cmdOpenMruGunStock As ICommand
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "GunStockCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that do Import.
|
|
''' </summary>
|
|
Public ReadOnly Property GunStockCommand As ICommand
|
|
Get
|
|
If m_cmdGunStock Is Nothing Then
|
|
m_cmdGunStock = New RelayCommand(AddressOf GunStock)
|
|
End If
|
|
Return m_cmdGunStock
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Execute the Door. This method is invoked by the DoorsCommand.
|
|
''' </summary>
|
|
Public Sub GunStock(ByVal param As Object)
|
|
Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, String.Empty)
|
|
End Sub
|
|
|
|
#End Region ' GunStockCommand
|
|
|
|
#Region "OpenMruGunStockCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that do Open.
|
|
''' </summary>
|
|
Public Shared ReadOnly Property OpenMruGunStockCommand As ICommand
|
|
Get
|
|
If m_cmdOpenMruGunStock Is Nothing Then
|
|
m_cmdOpenMruGunStock = New RelayCommand(AddressOf OpenMruGunStock)
|
|
End If
|
|
Return m_cmdOpenMruGunStock
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Execute the Open. This method is invoked by the OpenCommand.
|
|
''' </summary>
|
|
Public Shared Sub OpenMruGunStock(ByVal param As Object)
|
|
Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, DirectCast(param, String))
|
|
End Sub
|
|
|
|
#End Region ' OpenMruGunStockCommand
|
|
|
|
#End Region
|
|
|
|
End Class
|
|
|
|
End Namespace |