VB.Net Tutorial/Thread/Thread Operation
Версия от 19:40, 26 мая 2010; (обсуждение)
Thread complete event
<source lang="vbnet">Imports System.Threading Public Class Tester
Shared WithEvents oSquare As SquareClass = New SquareClass() Public Shared Sub Main Dim t As Thread t = New Thread(AddressOf oSquare.CalcSquare) oSquare.Value = 3 t.Start() End Sub Shared Sub SquareEventHandler(ByVal Square As Double) Handles oSquare.ThreadComplete Console.WriteLine(Square) End Sub
End Class Public Class SquareClass
Public Value As Double Public Square As Double Public Event ThreadComplete(ByVal Square As Double) Public Sub CalcSquare() Square = Value * Value RaiseEvent ThreadComplete(Square) End Sub
End Class</source>
9
Thread Sleep
<source lang="vbnet">Imports System.Threading Module Module1
Sub TaskA() Dim I As Integer Thread.Sleep(1000) For I = 0 To 250 System.Console.Write("A") Next End Sub Sub TaskB() Dim I As Integer Thread.Sleep(500) For I = 0 To 250 System.Console.Write("B") Next End Sub Sub TaskC() Dim I As Integer Thread.Sleep(100) For I = 0 To 250 System.Console.Write("C") Next End Sub Sub Main() Dim A As Thread = New Thread(AddressOf TaskA) Dim B As Thread = New Thread(AddressOf TaskB) Dim C As Thread = New Thread(AddressOf TaskC) A.Start() B.Start() C.Start() End Sub
End Module</source>
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB BBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"