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" 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