Visual Basic

Copy Code

 Public Structure Parameter
 
 
    Private _value As String
    Private _name As String
 
 
    Public Sub New(ByVal name As String, ByVal value As String)
        Try
            _value = value
            _name = name
 
        Catch ex As Exception
            'TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Parameter.New", ex.Message & ex.StackTrace, TraceLevel.Error)
            Throw ex
        End Try
    End Sub
 
 
    Public ReadOnly Property Value() As String
        Get
            Return _value
        End Get
    End Property
    Public ReadOnly Property Name() As String
        Get
            Return _name
        End Get
    End Property
 
 End Structure