Emmanuele Sassi
95 lines
2.0 KiB
VB.net
95 lines
2.0 KiB
VB.net
Public Class MultipleCopyWndVM
|
|
Inherits VMBase
|
|
|
|
Friend Event m_CloseWindow(bDialogResult As Boolean)
|
|
|
|
Public ReadOnly Property sTitle As String
|
|
Get
|
|
Return EgtMsg(1101)
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nCopyNumber As Integer
|
|
Public ReadOnly Property nCopyNumber As Integer
|
|
Get
|
|
Return m_nCopyNumber
|
|
End Get
|
|
End Property
|
|
Public Property sCopyNumber As String
|
|
Get
|
|
Return m_nCopyNumber.ToString()
|
|
End Get
|
|
Set(value As String)
|
|
If Not Integer.TryParse(value, m_nCopyNumber) Then
|
|
MessageBox.Show(EgtMsg(1103), EgtMsg(1051), MessageBoxButton.OK, MessageBoxImage.Error)
|
|
NotifyPropertyChanged(sCopyNumber)
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property sCopyNumberMsg As String
|
|
Get
|
|
Return EgtMsg(1102)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property sOkMsg As String
|
|
Get
|
|
Return EgtMsg(1001)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property sCancelMsg As String
|
|
Get
|
|
Return EgtMsg(1002)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
' Definizione comandi
|
|
Private m_cmdOk As ICommand
|
|
Private m_cmdCancel As ICommand
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "Ok"
|
|
|
|
Public ReadOnly Property Ok_Command As ICommand
|
|
Get
|
|
If m_cmdOk Is Nothing Then
|
|
m_cmdOk = New Command(AddressOf Ok)
|
|
End If
|
|
Return m_cmdOk
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Ok()
|
|
If m_nCopyNumber > 0 Then RaiseEvent m_CloseWindow(True)
|
|
End Sub
|
|
|
|
#End Region ' Ok
|
|
|
|
#Region "Cancel"
|
|
|
|
Public ReadOnly Property Cancel_Command As ICommand
|
|
Get
|
|
If m_cmdCancel Is Nothing Then
|
|
m_cmdCancel = New Command(AddressOf Cancel)
|
|
End If
|
|
Return m_cmdCancel
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Cancel()
|
|
RaiseEvent m_CloseWindow(False)
|
|
End Sub
|
|
|
|
#End Region ' Cancel
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|