threading

[Guest]

how do i open up 8 thread to run 8 function at the same time?

 

[rawCoder]

This is a modified example from MSDN available at
http://msdn.microsoft.com/library/d...frlrfSystemThreadingThreadClassStartTopic.asp

Imports System

Imports System.Threading

Public Class ThreadWork

Public Shared nCount As Integer = 0

Public Shared Sub DoWork()

Dim nThreadNo As Integer

nCount = nCount + 1

nThreadNo = nCount

Console.WriteLine("Thread Starting " & nThreadNo)

Thread.Sleep(nThreadNo * 50)

Console.WriteLine("Thread Exiting " & nThreadNo)

End Sub 'DoWork

End Class 'ThreadWork

Class ThreadTest

Public Shared Sub Main()

Dim myThreadDelegate As New ThreadStart(AddressOf ThreadWork.DoWork)

Dim myThread As Thread

Dim i As Integer

For i = 1 To 8

myThread = New Thread(myThreadDelegate)

myThread.Start()

Next

Thread.Sleep(1000)

End Sub 'Main

End Class 'ThreadTest

HTH
rawCoder