VB.Net/Thread/Thread Priority

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

Thread priority: Highest and normal

<source lang="vbnet"> Imports System Imports System.Threading Imports System.Text Imports System.Windows.Forms Public Class MainClass

 Public Shared Sub Main()
   Dim bThreadStart As New ThreadStart(AddressOf SubtractFromCounter)
   Dim bThread As New Thread(bThreadStart)
   
   bThread.Priority = ThreadPriority.Highest
   bThread.Start()
   
   Dim i As Integer
   Do While True
     Console.WriteLine("In main thread and count is " & i)
     i += 1
   Loop
 End Sub
 
 Shared Public Sub SubtractFromCounter()
   Dim count As Integer
   Do While True
     count -= 1
     Console.WriteLine("Am in another thread and counter  =" _
     & count)
   Loop
 End Sub

End Class


      </source>


Thread Priority List

<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
       "ThreadPriority.AboveNormal
       "ThreadPriority.Normal
       "ThreadPriority.BelowNormal
       "ThreadPriority.Lowest
       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>