Imports Newtonsoft.Json

Public Class QuestionDTO

   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
   Public Sub SetId(nId As Integer)
      m_nId = nId
   End Sub

   Private m_ExecEnvironment As EXECENVIRONMENTS
   Public ReadOnly Property ExecEnvironment As EXECENVIRONMENTS
      Get
         Return m_ExecEnvironment
      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, ExecEnvironment As EXECENVIRONMENTS, Args As Dictionary(Of String, String))
      m_nId = nId
      m_ExecEnvironment = ExecEnvironment
      m_Args = Args
   End Sub

End Class