Mega Code Archive

 

Categories / VB.Net by API / System Threading

 

Thread IsAlive

Imports System Imports System.Drawing Imports System.Threading Imports System.Windows.Forms Imports System.IO public class MainClass    Shared Sub Main()         Dim Thrd As Thread         Dim TStart As New ThreadStart(AddressOf BusyThread)         Thrd = New Thread(TStart)         Thrd.Priority = ThreadPriority.Highest         Thrd.Start()         Console.WriteLine(Thrd.ThreadState.ToString("G"))         Console.WriteLine("Thrd.IsAlive " & Thrd.IsAlive)         If Thrd.IsAlive Then             Thrd.Abort()             Thrd.Join()         End If    End Sub    Shared Sub BusyThread()         While True             'Console.Write("thread ")         End While     End Sub End Class