VB.Net/Thread/Thread Priority — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:40, 26 мая 2010
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>