Nicola Pievani
64 lines
1.8 KiB
VB.net
64 lines
1.8 KiB
VB.net
Imports System.ComponentModel
|
|
Namespace EgtCAM5
|
|
|
|
Public Class AboutBoxViewModel
|
|
Implements INotifyPropertyChanged
|
|
'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
|
|
NotifyPropertyChanged("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 Command(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
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
End Class
|
|
|
|
End Namespace |