Demetrio Cassarino
62 lines
1.3 KiB
VB.net
62 lines
1.3 KiB
VB.net
Imports EgtWPFLib5
|
|
Imports Newtonsoft.Json
|
|
|
|
Public Class JsonParameters
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
NotifyPropertyChanged(NameOf(sName))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sNameNge As String
|
|
Public Property sNameNge As String
|
|
Get
|
|
Return m_sNameNge
|
|
End Get
|
|
Set(value As String)
|
|
m_sNameNge = value
|
|
NotifyPropertyChanged(NameOf(sNameNge))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sValue As String
|
|
Public Property sValue As String
|
|
Get
|
|
Return m_sValue
|
|
End Get
|
|
Set(value As String)
|
|
m_sValue = value
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
<JsonConstructor>
|
|
Sub New(sName As String, sNameNge As String, sValue As String)
|
|
m_sName = sName
|
|
m_sNameNge = sNameNge
|
|
m_sValue = sValue
|
|
End Sub
|
|
|
|
Sub New(ProjectParameters As ProjectParameters)
|
|
m_sName = ProjectParameters.sName
|
|
m_sNameNge = ProjectParameters.sNameNge
|
|
m_sValue = ProjectParameters.sValue
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
End Class
|