- primo commit

2025-02-07 12:32:14 +01:00
parent d1910ff83a
commit 139b805055
78 changed files with 4099 additions and 0 deletions
@@ -0,0 +1,66 @@
+Public Class MultipleCopyWndVM
+   Inherits VMBase
+
+   Friend Event m_CloseWindow(bDialogResult As Boolean)
+
+   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("Valore non impostabile come quantita' di porte!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+            NotifyPropertyChanged(sCopyNumber)
+         End If
+      End Set
+   End Property
+
+   ' 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