Emmanuele Sassi
65b7446d1e
- modifica nomi question e answer - modifica per avere answer con environment
50 lines
1.2 KiB
VB.net
50 lines
1.2 KiB
VB.net
Imports Newtonsoft.Json
|
|
|
|
Public Class AnswerDTO
|
|
|
|
Private m_nThreadIndex As Integer
|
|
Public ReadOnly Property nThreadIndex As Integer
|
|
Get
|
|
Return m_nThreadIndex
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nId As Integer
|
|
Public ReadOnly Property nId As Integer
|
|
Get
|
|
Return m_nId
|
|
End Get
|
|
End Property
|
|
|
|
Private m_ExecEnvironment As EXECENVIRONMENTS
|
|
Public ReadOnly Property ExecEnvironment As EXECENVIRONMENTS
|
|
Get
|
|
Return m_ExecEnvironment
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nResult As Integer
|
|
Public ReadOnly Property nResult As Integer
|
|
Get
|
|
Return m_nResult
|
|
End Get
|
|
End Property
|
|
|
|
Private m_Args As New Dictionary(Of String, String)
|
|
Public ReadOnly Property Args As Dictionary(Of String, String)
|
|
Get
|
|
Return m_Args
|
|
End Get
|
|
End Property
|
|
|
|
<JsonConstructor>
|
|
Sub New(nThreadIndex As Integer, nId As Integer, ExecEnvironment As EXECENVIRONMENTS, nResult As Integer, Args As Dictionary(Of String, String))
|
|
m_nThreadIndex = nThreadIndex
|
|
m_nId = nId
|
|
m_ExecEnvironment = ExecEnvironment
|
|
m_nResult = nResult
|
|
m_Args = Args
|
|
End Sub
|
|
|
|
End Class
|