Emmanuele Sassi
52 lines
1.2 KiB
VB.net
52 lines
1.2 KiB
VB.net
Imports EgwMultiEngineManager.Data
|
|
|
|
Public Class ThreadData
|
|
|
|
Public Enum ProcessStatuses As Integer
|
|
NULL = 0
|
|
WAITINGANSWER = 1
|
|
ANSWERRECEIVED = 2
|
|
TOBESTARTED = 10
|
|
End Enum
|
|
|
|
Private m_ProcessStatus As ProcessStatuses = ProcessStatuses.TOBESTARTED
|
|
Public ReadOnly Property ProcessStatus As ProcessStatuses
|
|
Get
|
|
Return m_ProcessStatus
|
|
End Get
|
|
End Property
|
|
Friend Sub SetProcessStatus(value As ProcessStatuses)
|
|
m_ProcessStatus = value
|
|
End Sub
|
|
|
|
Private m_CurrRequest As QuestionDTO
|
|
Public ReadOnly Property CurrRequest As QuestionDTO
|
|
Get
|
|
Return m_CurrRequest
|
|
End Get
|
|
End Property
|
|
Friend Sub SetCurrRequest(value As QuestionDTO)
|
|
m_CurrRequest = value
|
|
End Sub
|
|
|
|
Private m_nProcResult As AnswerDTO
|
|
Public ReadOnly Property nProcResult As AnswerDTO
|
|
Get
|
|
Return m_nProcResult
|
|
End Get
|
|
End Property
|
|
Friend Sub SetProcResult(value As AnswerDTO)
|
|
m_nProcResult = value
|
|
End Sub
|
|
|
|
Private m_Process As Process
|
|
Public ReadOnly Property Process As Process
|
|
Get
|
|
Return m_Process
|
|
End Get
|
|
End Property
|
|
Friend Sub SetProcess(value As Process)
|
|
m_Process = value
|
|
End Sub
|
|
|
|
End Class |