EgtCAM5 :

- Migliorie varie.

TopCommandBar/TopCommandBarViewModel.vb

@@ -9,6 +9,10 @@
       Private m_cmdOpen As ICommand
       Private m_cmdSave As ICommand
       Private m_cmdSaveAs As ICommand
+      Private m_cmdInsert As ICommand
+      Private m_cmdImport As ICommand
+      Private m_cmdExport As ICommand
+      Private m_cmdExec As ICommand
 
 #End Region    ' Fields & Properties
 
@@ -134,6 +138,125 @@
 
 #End Region ' SaveAsCommand
 
+#Region "InsertCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Insert.
+      ''' </summary>
+      Public ReadOnly Property InsertCommand As ICommand
+         Get
+            If m_cmdInsert Is Nothing Then
+               m_cmdInsert = New RelayCommand(AddressOf Insert, AddressOf CanInsert)
+            End If
+            Return m_cmdInsert
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Insert.  This method is invoked by the InsertCommand.
+      ''' </summary>
+      Public Sub Insert(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.INSERTPROJECT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanInsert(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' InsertCommand
+
+#Region "ImportCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Import.
+      ''' </summary>
+      Public ReadOnly Property ImportCommand As ICommand
+         Get
+            If m_cmdImport Is Nothing Then
+               m_cmdImport = New RelayCommand(AddressOf Import, AddressOf CanImport)
+            End If
+            Return m_cmdImport
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Import.  This method is invoked by the ImportCommand.
+      ''' </summary>
+      Public Sub Import(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.IMPORTPROJECT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanImport(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' ImportCommand
+
+#Region "ExportCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Export.
+      ''' </summary>
+      Public ReadOnly Property ExportCommand As ICommand
+         Get
+            If m_cmdExport Is Nothing Then
+               m_cmdExport = New RelayCommand(AddressOf Export, AddressOf CanExport)
+            End If
+            Return m_cmdExport
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Export.  This method is invoked by the ExportCommand.
+      ''' </summary>
+      Public Sub Export(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.EXPORTPROJECT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanExport(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' ExportCommand
+
+#Region "ExecCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Exec.
+      ''' </summary>
+      Public ReadOnly Property ExecCommand As ICommand
+         Get
+            If m_cmdExec Is Nothing Then
+               m_cmdExec = New RelayCommand(AddressOf Exec, AddressOf CanExec)
+            End If
+            Return m_cmdExec
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Exec.  This method is invoked by the ExecCommand.
+      ''' </summary>
+      Public Sub Exec(ByVal param As Object)
+         Application.Msn.NotifyColleagues(Application.EXECPROJECT)
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanExec(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' ExecCommand
 
 #End Region    ' Commands