VB.Net/Thread/Thread State

Материал из VB Эксперт
Перейти к: навигация, поиск

Check Thread state

<source lang="vbnet"> 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"))
  End Sub
  Shared Sub BusyThread()
       While True
           "Console.Write("thread ")
       End While
   End Sub

End Class


      </source>


Is Thread alive

<source lang="vbnet"> 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


      </source>