Emmanuele Sassi
90 lines
2.2 KiB
VB.net
90 lines
2.2 KiB
VB.net
Public Class ThreadData
|
|
|
|
'Enum ThreadOperations As Integer
|
|
' WaitingData = 1
|
|
' FoundRequest = 2
|
|
' WritingDdf = 3
|
|
' ProcessingDdf = 4
|
|
' ReadingSvg = 5
|
|
' SendResult = 6
|
|
' Closed = 10
|
|
'End Enum
|
|
|
|
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 ProcessArgs
|
|
Public ReadOnly Property CurrRequest As ProcessArgs
|
|
Get
|
|
Return m_CurrRequest
|
|
End Get
|
|
End Property
|
|
Friend Sub SetCurrRequest(value As ProcessArgs)
|
|
m_CurrRequest = value
|
|
End Sub
|
|
|
|
'Private m_sDdfPath As String
|
|
'Public ReadOnly Property sDdfPath As String
|
|
' Get
|
|
' Return m_sDdfPath
|
|
' End Get
|
|
'End Property
|
|
'Friend Sub SetDdfPath(value As String)
|
|
' m_sDdfPath = value
|
|
'End Sub
|
|
|
|
Private m_nProcResult As Integer
|
|
Public ReadOnly Property nProcResult As Integer
|
|
Get
|
|
Return m_nProcResult
|
|
End Get
|
|
End Property
|
|
Friend Sub SetProcResult(value As Integer)
|
|
m_nProcResult = value
|
|
End Sub
|
|
|
|
'Private m_ThreadOperation As ThreadOperations
|
|
'Public ReadOnly Property ThreadOperation As ThreadOperations
|
|
' Get
|
|
' Return m_ThreadOperation
|
|
' End Get
|
|
'End Property
|
|
'Friend Sub SetThreadOperation(value As ThreadOperations)
|
|
' m_ThreadOperation = 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
|
|
|
|
'Private m_ThreadStat As ThreadStat
|
|
'Public ReadOnly Property ThreadStat As ThreadStat
|
|
' Get
|
|
' Return m_ThreadStat
|
|
' End Get
|
|
'End Property
|
|
'Friend Sub SetThreadStat(value As ThreadStat)
|
|
' m_ThreadStat = value
|
|
'End Sub
|
|
|
|
End Class |