Egalware/EgtWPFLib5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-aggiornato messaggi

Browse Source
This commit is contained in:
Demetrio Cassarino
2024-09-26 16:29:41 +02:00
parent 686df6daa5
commit ff7ecd9a59
24 changed files with 687 additions and 686 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SaveFileDialogWithList/SaveFileDialogWithListVM.vb
+9 -9
View File
@@ -9,9 +9,9 @@ Public Class SaveFileDialogWithListVM
Get
If IsNothing(m_Title) Then
If IsFolder Then
Return EgtMsg(MSG_EGTSAVEFILEDIALOG + 11)
Return EgtMsg(30011) ' Nome Cartella
Else
Return EgtMsg(MSG_EGTSAVEFILEDIALOG + 10)
Return EgtMsg(30010) ' Nome File
End If
Else
Return m_Title
@@ -77,8 +77,8 @@ Public Class SaveFileDialogWithListVM
'MessageBox.Show(EgtMsg(MSG_MACHININGDBERRORS + 4),
' EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
' MessageBoxButton.OK, MessageBoxImage.Error)
EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MACHININGDBERRORS + 4),
EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(31404), ' I caratteri \ / : * ? " < > | non sono permessi
EgtMsg(31407), ' CANCELLA
MessageBoxButton.OK, MessageBoxImage.Error)
End If
NotifyPropertyChanged(NameOf(WriteFileName))
@@ -143,12 +143,12 @@ Public Class SaveFileDialogWithListVM
Public ReadOnly Property SaveMsg As String
Get
Return EgtMsg(MSG_EGTSAVEFILEDIALOG + 1)
Return EgtMsg(30001) ' Salva
End Get
End Property
Public ReadOnly Property CancelMsg As String
Get
Return EgtMsg(MSG_EGTSAVEFILEDIALOG + 2)
Return EgtMsg(30002) ' Annulla
End Get
End Property
@@ -253,20 +253,20 @@ Public Class SaveFileDialogWithListVM
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)
EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_EGTSAVEFILEDIALOG + 8), EgtMsg(MSG_EGTSAVEFILEDIALOG + 7), MessageBoxButton.OK, MessageBoxImage.Error)
EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(30008), EgtMsg(30007), MessageBoxButton.OK, MessageBoxImage.Error) ' Il nome non può essere vuoto! - ERRORE
Return False
End If
If IsFolder Then
If System.IO.Directory.Exists(sCompleteFileName) Then
'If MessageBox.Show(m_WriteFileName & " " & EgtMsg(MSG_EGTSAVEFILEDIALOG + 3) & vbCrLf & EgtMsg(MSG_EGTSAVEFILEDIALOG + 4), EgtMsg(MSG_EGTSAVEFILEDIALOG + 9), MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then
If EgtMessageBoxV.Show(Application.Current.MainWindow, m_WriteFileName & " " & EgtMsg(MSG_EGTSAVEFILEDIALOG + 3) & vbCrLf & EgtMsg(MSG_EGTSAVEFILEDIALOG + 4), EgtMsg(MSG_EGTSAVEFILEDIALOG + 9), MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then
If EgtMessageBoxV.Show(Application.Current.MainWindow, m_WriteFileName & " " & EgtMsg(30003) & vbCrLf & EgtMsg(30004), EgtMsg(30009), MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then ' eiste già - Sostituirlo? - ATTENZIONE
Return False
End If
End If
Else
If File.Exists(sCompleteFileName) Then
'If MessageBox.Show(m_WriteFileName & " " & EgtMsg(MSG_EGTSAVEFILEDIALOG + 3) & vbCrLf & EgtMsg(MSG_EGTSAVEFILEDIALOG + 4), EgtMsg(MSG_EGTSAVEFILEDIALOG + 9), MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then
If EgtMessageBoxV.Show(Application.Current.MainWindow, m_WriteFileName & " " & EgtMsg(MSG_EGTSAVEFILEDIALOG + 3) & vbCrLf & EgtMsg(MSG_EGTSAVEFILEDIALOG + 4), EgtMsg(MSG_EGTSAVEFILEDIALOG + 9), MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then
If EgtMessageBoxV.Show(Application.Current.MainWindow, m_WriteFileName & " " & EgtMsg(30003) & vbCrLf & EgtMsg(30004), EgtMsg(30009), MessageBoxButton.YesNo, MessageBoxImage.Exclamation) <> MessageBoxResult.Yes Then ' eiste già - Sostituirlo? - ATTENZIONE
Return False
End If
End If