Mega Code Archive

 

Categories / VB.Net Tutorial / Thread

 

Thread complete event

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 9