Nicola Pievani
b21b11b09f
- aggiunta di nuovi controlli in fase di lettura ddf, - i bottoni per aggiungere nuovi nomi alla lista delle geometrie sono disabilitabili, - gestione dei Frame anche nell'HardwareManager, - miglioramento in fase di creazione nome file/direttorio, - il feedback contiene il nome della configurazione.
56 lines
1.9 KiB
VB.net
56 lines
1.9 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports EgtUILib
|
|
|
|
Public Class MySaveFileDialogVM
|
|
Inherits EgtWPFLib5.SaveFileDialogVM
|
|
|
|
Public ReadOnly Property IsFrameMsg As String
|
|
Get
|
|
Return "Frame"
|
|
End Get
|
|
End Property
|
|
|
|
Private Property m_IsFrame As Boolean = False
|
|
Public Property IsFrame As Boolean
|
|
Get
|
|
Return m_IsFrame
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_IsFrame = value
|
|
End Set
|
|
End Property
|
|
|
|
Friend Function MySave() As Boolean
|
|
If IsFolder And IsFrame Then
|
|
WriteFileName &= ".Frame"
|
|
End If
|
|
Dim sCompleteFileName As String = Directory & "\" & WriteFileName & If(IsFolder, "", Extension)
|
|
If String.IsNullOrWhiteSpace(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(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(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
|
|
FileName = sCompleteFileName
|
|
Return True
|
|
End Function
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
End Sub
|
|
|
|
End Class
|