NicolaP
62 lines
1.3 KiB
VB.net
62 lines
1.3 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
Public Class ModifyQualityVM
|
|
Inherits VMBase
|
|
|
|
Private m_Title As String = String.Empty
|
|
Public Property Title As String
|
|
Get
|
|
Return m_Title
|
|
End Get
|
|
Set(value As String)
|
|
m_Title = value
|
|
End Set
|
|
End Property
|
|
Public ReadOnly Property ValueMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_SPLITPAGEUC + 35)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property OkMsg As String
|
|
Get
|
|
Return EgtMsg(91651) 'Ok
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ExitMsg As String
|
|
Get
|
|
Return EgtMsg(91652) 'Annulla
|
|
End Get
|
|
End Property
|
|
|
|
Private m_QualityList As New ObservableCollection(Of String)
|
|
|
|
Public Property QualityList As ObservableCollection(Of String)
|
|
Get
|
|
Return m_QualityList
|
|
End Get
|
|
Set(value As ObservableCollection(Of String))
|
|
m_QualityList = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SelectedQuality As String
|
|
|
|
Public Property SelectedQuality As String
|
|
Get
|
|
Return m_SelectedQuality
|
|
End Get
|
|
Set(value As String)
|
|
m_SelectedQuality = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New()
|
|
|
|
End Sub
|
|
|
|
End Class
|