Dario Sassi
61 lines
1.4 KiB
VB.net
61 lines
1.4 KiB
VB.net
Imports EgtUILib
|
|
|
|
Namespace EgtCAM5
|
|
|
|
Public Class ExecutePanelViewModel
|
|
Inherits ViewModelBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
' Definizione comandi
|
|
Private m_cmdExec As ICommand
|
|
|
|
#Region "ToolTip"
|
|
|
|
Public ReadOnly Property ExecToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_TOPCOMMANDBAR + 8)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' ToolTip
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#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.EXECSCRIPT)
|
|
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
|
|
|
|
End Class
|
|
|
|
End Namespace |