Emmanuele Sassi
42 lines
929 B
VB.net
42 lines
929 B
VB.net
Imports Newtonsoft.Json
|
|
|
|
Public Class Answer
|
|
|
|
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_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, nResult As Integer, Args As Dictionary(Of String, String))
|
|
m_nThreadIndex = nThreadIndex
|
|
m_nId = nId
|
|
m_nResult = nResult
|
|
m_Args = Args
|
|
End Sub
|
|
|
|
End Class
|