EgtCAM5 :

- Migliorie varie.

AboutBoxWindow/AboutBoxViewModel.vb

@@ -0,0 +1,56 @@
+Namespace EgtCAM5
+
+   Public Class AboutBoxViewModel
+      Inherits ViewModelBase
+
+      Private m_AboutBoxVisibility As Visibility
+      Public Property AboutBoxVisibility As Visibility
+         Get
+            Return m_AboutBoxVisibility
+         End Get
+         Set(value As Visibility)
+            If value <> m_AboutBoxVisibility Then
+               m_AboutBoxVisibility = value
+               OnPropertyChanged("AboutBoxVisibility")
+            End If
+         End Set
+      End Property
+      ' Definizione comandi
+      Private m_cmdClose As ICommand
+
+#Region "COMMANDS"
+
+#Region "CloseCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Point.
+      ''' </summary>
+      Public ReadOnly Property CloseCommand As ICommand
+         Get
+            If m_cmdClose Is Nothing Then
+               m_cmdClose = New RelayCommand(AddressOf Close, AddressOf CanClose)
+            End If
+            Return m_cmdClose
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Point.  This method is invoked by the PointCommand.
+      ''' </summary>
+      Public Sub Close(ByVal param As Object)
+         AboutBoxVisibility = Visibility.Hidden
+      End Sub
+
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanClose(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' CloseCommand
+
+#End Region    ' Commands
+   End Class
+
+End Namespace