Emmanuele Sassi
42 lines
919 B
VB.net
42 lines
919 B
VB.net
Imports Newtonsoft.Json
|
|
|
|
Public Class Question
|
|
|
|
Private m_nThreadIndex As Integer
|
|
Public ReadOnly Property nThreadIndex As Integer
|
|
Get
|
|
Return m_nThreadIndex
|
|
End Get
|
|
End Property
|
|
Public Sub SetThreadIndex(nIndex As Integer)
|
|
m_nThreadIndex = nIndex
|
|
End Sub
|
|
|
|
Private m_nId As Integer
|
|
Public ReadOnly Property nId As Integer
|
|
Get
|
|
Return m_nId
|
|
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
|
|
|
|
<JsonIgnore>
|
|
Public ReadOnly Property sProcessArgs As String
|
|
Get
|
|
Return JsonConvert.SerializeObject(Me, Formatting.None)
|
|
End Get
|
|
End Property
|
|
|
|
Sub New(nId As Integer, Args As Dictionary(Of String, String))
|
|
m_nId = nId
|
|
m_Args = Args
|
|
End Sub
|
|
|
|
End Class
|