Dario Sassi
77 lines
2.0 KiB
VB.net
77 lines
2.0 KiB
VB.net
Imports System.IO
|
|
Imports EgtUILib
|
|
|
|
Public Class NameDialogVM
|
|
Inherits VMBase
|
|
|
|
Private m_NameVerifyer As Func(Of String, Boolean)
|
|
Public WriteOnly Property NameVerifyer As Func(Of String, Boolean)
|
|
Set(value As Func(Of String, Boolean))
|
|
m_NameVerifyer = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_Title As String
|
|
Public Property Title As String
|
|
Get
|
|
Return m_Title
|
|
End Get
|
|
Set(value As String)
|
|
m_Title = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_VerifyChars As Boolean = True
|
|
Public WriteOnly Property VerifyChars As boolean
|
|
Set(value As Boolean)
|
|
m_VerifyChars = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_Name As String
|
|
Public Property Name As String
|
|
Get
|
|
Return m_Name
|
|
End Get
|
|
Set(value As String)
|
|
If m_VerifyChars Then
|
|
Dim TempName As String = value
|
|
For Each cInvalid In Path.GetInvalidFileNameChars()
|
|
TempName = TempName.Replace(cInvalid, "")
|
|
Next
|
|
If TempName.Length = value.Length Then
|
|
m_Name = value
|
|
Else
|
|
MessageBox.Show(EgtMsg(MSG_MACHININGDBERRORS + 4),
|
|
EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
|
|
MessageBoxButton.OK, MessageBoxImage.Error)
|
|
m_Name = TempName
|
|
End If
|
|
Else
|
|
m_Name = value
|
|
End If
|
|
NotifyPropertyChanged("Name")
|
|
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
|
|
|
|
Friend Function Save() As Boolean
|
|
Return m_NameVerifyer(m_Name)
|
|
End Function
|
|
|
|
End Class
|