multithreading vb.net - how do I tell when a thread is done

Hi Steven Thomas

U can use ThreadState property of the thread class and find out what is the current status of the thread. It is a enumeration of thread states. I hope this will work

With regards

Sadha Sivam S

Hi Steven,

Maybe others have other answers, however in your scenario I have a class
with at the end of every thread procedure the function.

ProcessThreadRe ady("Threadnumb er")

I hope this helps,

Cor

Do you need to wait for all of your threads to finish? Then you could use Thread.Join. Alternatively your thread could raise an event or signal using the auto/manualreseteven t classes

Da

----- Steven Thomas wrote: ----

I have an application that creates mutliple thread like this

My code

------------------------------------------------------------------------
Private Sub StartGPReportSe rver(
Tr
'Dim some variables...... .
While IsRunnin
' LOOP THROUGH THE AVAILABLE THREAD
' I HAVE AN ARRAY WITH A RECORD FOR EACH THREAD TH
APPLICATIO
' CAN CREATE. IN THIS CASE
While c < thread
' CHECK TO SEE IF THERE ARE REPORTS TO BE RU
If arThreadCnts(3, c) = 0 The
'POLL THE QUEUE TO LOOK FOR WOR
dtReportToRun = cFunctions.poll db(arQueues(x)
arThreadCnts(0, c)
' IF THERE IS WORK TO BE DONE READ THE DAT
FROM THE REPORTQUEU
If CInt(dtReportTo Run.Rows.Count) > 0 The
arThreadCnts(3, c) =
'CInt(arThreadC nts(3,c)) +
'READ THE DATA ABOUT THE REQUES
Dim cAccessFunc as new clsAccessFuncti on
Dim othread1 As New Thread(AddressO
cAccessFunc.CAc cessSnapShot

'Create the new threa

'SET THE PROPERTIES OF THE SU
othread1.Name = CStr(arThreadCn ts(1
c)
cAccessFunc.pQC onnectionString
arQueues(x
cAccessFunc.pIn putFileName
CStr(dtReportTo Run.Rows(0).Ite m("InputFileNam e")
........
'Start the threa
othread1.start(
End I
End I
c +=
End Whil
c =
Thread.CurrentT hread.Sleep(100 0
End Whil
Catch errorVariable As Exceptio
'Error trappin
cFunctions.Writ eEventLog("GPRe port Could not start : " &> CStr(System.Dat eTime.Now()) & " " & errorVariable.M essage.ToString
End Tr
End Su

I have this setup to run 6 threads at a time. How can I tell when
thread has finished

"Cor Ligthert" <no**********@p lanet.nl> wrote in message news:<ub******* *******@TK2MSFT NGP11.phx.gbl>. ..

Hi Steven,

Maybe others have other answers, however in your scenario I have a class
with at the end of every thread procedure the function.

ProcessThreadRe ady("Threadnumb er")

I hope this helps,

Cor

Ok this is what I did to make it all work
1) in the class where the work is being done I create an event
Public Event ThreadDone(ByVa l DBType As String, ByVal ThreadName
As String)
2) at the end of the sub that does the work I raise that event
RaiseEvent ThreadDone(pDBT ype, vThreadName)
3) In my main code I have a sub to catch that event
Sub RptMSAThreadDon e(ByVal pDBType As String, ByVal pThreadName As
String) Handles cAccessFunc.Thr eadDone
RecoverThreadCn t(pDBType, pThreadName)
End Sub
4) I linked the two together when I was setting up the thread
Dim cAccessFunc As New AccessFunc()
'ADD A HANDLER TO CAPTURE DATA BACK FROM THE THREAD
AddHandler cAccessFunc.Thr eadDone, AddressOf RptMSAThreadDon e
Dim othread1 As New Thread(AddressO f cAccessFunc.CAc cessSnapShot)
.......

Well it works.

Hi Steven,

When I understand you well than that is almost the same as I do in the
section which does that ProcessThreadRe ady("Threadnumb er") I sand you. It
looks if you had copied that routine which I did not send you. (I have also
two parameters and not one).

:-)

Cor