EgtCAM5 :

- Cambiati nomi classi e file.

GunStockPanel/GunStockPanelVM.vb

@@ -0,0 +1,155 @@
+Imports System.Collections.ObjectModel
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class GunStockPanelVM
+      Inherits ViewModelBase
+
+      Public ReadOnly Property MruNewGunStockNames As ObservableCollection(Of String)
+         Get
+            Return IniFile.m_MruNewGunStock.m_FileNames
+         End Get
+      End Property
+
+      Public ReadOnly Property MruModifyGunStockNames As ObservableCollection(Of String)
+         Get
+            Return IniFile.m_MruModifyGunStock.m_FileNames
+         End Get
+      End Property
+
+#Region "Messages"
+
+      Public ReadOnly Property NewGunStockMsg As String
+         Get
+            Return EgtMsg(MSG_GUNSTOCK + 1)
+         End Get
+      End Property
+      Public ReadOnly Property ModifyGunStockMsg As String
+         Get
+            Return EgtMsg(MSG_GUNSTOCK + 3)
+         End Get
+      End Property
+
+#End Region    ' Messages
+
+#Region "ToolTip"
+
+      Public ReadOnly Property NewGunStockToolTip As String
+         Get
+            Return EgtMsg(MSG_GUNSTOCK + 2)
+         End Get
+      End Property
+      Public ReadOnly Property ModifyGunStockToolTip As String
+         Get
+            Return EgtMsg(MSG_GUNSTOCK + 4)
+         End Get
+      End Property
+
+#End Region    ' ToolTip
+
+      ' Definizione comandi
+      Private m_cmdNewGunStock As ICommand
+      Private m_cmdModifyGunStock As ICommand
+      Private Shared m_cmdOpenMruNewGunStock As ICommand
+      Private Shared m_cmdOpenMruModifyGunStock As ICommand
+
+#Region "COMMANDS"
+
+#Region "NewGunStockCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Import.
+      ''' </summary>
+      Public ReadOnly Property NewGunStockCommand As ICommand
+         Get
+            If m_cmdNewGunStock Is Nothing Then
+               m_cmdNewGunStock = New RelayCommand(AddressOf NewGunStock)
+            End If
+            Return m_cmdNewGunStock
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Door. This method is invoked by the DoorsCommand.
+      ''' </summary>
+      Public Sub NewGunStock(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.GUNSTOCKNEW, String.Empty)
+      End Sub
+
+#End Region ' NewGunStockCommand
+
+#Region "ModifyGunStockCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Import.
+      ''' </summary>
+      Public ReadOnly Property ModifyGunStockCommand As ICommand
+         Get
+            If m_cmdModifyGunStock Is Nothing Then
+               m_cmdModifyGunStock = New RelayCommand(AddressOf ModifyGunStock)
+            End If
+            Return m_cmdModifyGunStock
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Door. This method is invoked by the DoorsCommand.
+      ''' </summary>
+      Public Sub ModifyGunStock(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.GUNSTOCKMODIF, String.Empty)
+      End Sub
+
+#End Region ' ModifyGunStockCommand
+
+#Region "OpenMruNewGunStockCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Open.
+      ''' </summary>
+      Public Shared ReadOnly Property OpenMruNewGunStockCommand As ICommand
+         Get
+            If m_cmdOpenMruNewGunStock Is Nothing Then
+               m_cmdOpenMruNewGunStock = New RelayCommand(AddressOf OpenMruNewGunStock)
+            End If
+            Return m_cmdOpenMruNewGunStock
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Open.  This method is invoked by the OpenCommand.
+      ''' </summary>
+      Public Shared Sub OpenMruNewGunStock(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.GUNSTOCKNEW, DirectCast(param, String).Replace("__", "_"))
+      End Sub
+
+#End Region ' OpenMruNewGunStockCommand
+
+#Region "OpenMruModifyGunStockCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Open.
+      ''' </summary>
+      Public Shared ReadOnly Property OpenMruModifyGunStockCommand As ICommand
+         Get
+            If m_cmdOpenMruModifyGunStock Is Nothing Then
+               m_cmdOpenMruModifyGunStock = New RelayCommand(AddressOf OpenMruModifyGunStock)
+            End If
+            Return m_cmdOpenMruModifyGunStock
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Open.  This method is invoked by the OpenCommand.
+      ''' </summary>
+      Public Shared Sub OpenMruModifyGunStock(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.GUNSTOCKMODIF, DirectCast(param, String).Replace("__", "_"))
+      End Sub
+
+#End Region ' OpenMruNewGunStockCommand
+
+#End Region
+
+   End Class
+
+End Namespace