EgtWPFLib5 :

- corretta finestra EgtSaveFileDialog che diventa SaveFileDialog.

SaveFileDialog/SaveFileDialogVM.vb

@@ -0,0 +1,138 @@
+Imports System.IO
+Imports EgtUILib
+
+Public Class SaveFileDialogVM
+   Inherits VMBase
+
+   Private m_Title As String
+   Public Property Title As String
+      Get
+         If IsNothing(m_Title) Then
+            If IsFolder Then
+               Return EgtMsg(MSG_EGTSAVEFILEDIALOG + 11)
+            Else
+               Return EgtMsg(MSG_EGTSAVEFILEDIALOG + 10)
+            End If
+         Else
+            Return m_Title
+         End If
+      End Get
+      Set(value As String)
+         m_Title = value
+      End Set
+   End Property
+   Private m_sDirectory As String
+   Public Property Directory As String
+      Get
+         Return m_sDirectory
+      End Get
+      Set(value As String)
+         m_sDirectory = value
+      End Set
+   End Property
+
+   Private m_sExtension As String = String.Empty
+   Public Property Extension As String
+      Get
+         Return m_sExtension
+      End Get
+      Set(value As String)
+         m_sExtension = value
+      End Set
+   End Property
+
+   Private m_FileName As String
+   Public Property FileName As String
+      Get
+         Return m_FileName
+      End Get
+      Set(value As String)
+         m_FileName = value
+      End Set
+   End Property
+
+   Private m_IsFolder As Boolean = False
+   Public Property IsFolder As Boolean
+      Get
+         Return m_IsFolder
+      End Get
+      Set(value As Boolean)
+         m_IsFolder = value
+      End Set
+   End Property
+
+   Private m_WriteFileName As String
+   Public Property WriteFileName As String
+      Get
+         Return m_WriteFileName
+      End Get
+      Set(value As String)
+         Dim TempName As String = value.Trim(Path.GetInvalidFileNameChars)
+         If TempName.Length = value.Length Then
+            m_WriteFileName = value
+         Else
+            MessageBox.Show(EgtMsg(MSG_EGTSAVEFILEDIALOG + 10), EgtMsg(MSG_EGTSAVEFILEDIALOG + 7), MessageBoxButton.OK, MessageBoxImage.Error)
+         End If
+         NotifyPropertyChanged("WriteFileName")
+      End Set
+   End Property
+
+#Region "Messages"
+
+   Public ReadOnly Property SaveMsg As String
+      Get
+         Return EgtMsg(MSG_EGTSAVEFILEDIALOG + 1)
+      End Get
+   End Property
+   Public ReadOnly Property CancelMsg As String
+      Get
+         Return EgtMsg(MSG_EGTSAVEFILEDIALOG + 2)
+      End Get
+   End Property
+
+#End Region
+
+   Public Sub Initialize()
+      ' se la cartella d'origine non è stata impostata, esco
+      If String.IsNullOrWhiteSpace(m_sDirectory) Then
+         Throw New Exception("Exception: Directory is null or white space!")
+      End If
+      ' se non esiste, esco
+      If Not IO.Directory.Exists(m_sDirectory) Then
+         Throw New Exception("Exception: Directory doesn't exist!")
+      End If
+      If String.IsNullOrWhiteSpace(m_sExtension) And Not IsFolder Then
+         Throw New Exception("Exception: Extension is null or white space!")
+      End If
+      ' verifico se è impostato un nome di default
+      If Not String.IsNullOrWhiteSpace(m_FileName) Then
+         m_WriteFileName = m_FileName
+      End If
+      NotifyPropertyChanged("WriteFileName")
+      If IsFolder Then m_sExtension = ""
+   End Sub
+
+   Friend Function Save() As Boolean
+      Dim sCompleteFileName As String = m_sDirectory & "\" & m_WriteFileName & If(IsFolder, "", m_sExtension)
+      If String.IsNullOrWhiteSpace(m_WriteFileName) Then
+         MessageBox.Show(EgtMsg(MSG_EGTSAVEFILEDIALOG + 8), EgtMsg(MSG_EGTSAVEFILEDIALOG + 7), MessageBoxButton.OK, MessageBoxImage.Error)
+         Return False
+      End If
+      If IsFolder Then
+         If System.IO.Directory.Exists(sCompleteFileName) Then
+            If MessageBox.Show(m_FileName & " " & EgtMsg(MSG_EGTSAVEFILEDIALOG + 3) & vbCrLf & EgtMsg(MSG_EGTSAVEFILEDIALOG + 4), EgtMsg(MSG_EGTSAVEFILEDIALOG + 9), MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then
+               Return False
+            End If
+         End If
+      Else
+         If File.Exists(sCompleteFileName) Then
+            If MessageBox.Show(m_FileName & " " & EgtMsg(MSG_EGTSAVEFILEDIALOG + 3) & vbCrLf & EgtMsg(MSG_EGTSAVEFILEDIALOG + 4), EgtMsg(MSG_EGTSAVEFILEDIALOG + 9), MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then
+               Return False
+            End If
+         End If
+      End If
+      m_FileName = sCompleteFileName
+      Return True
+   End Function
+
+End Class