FAQ ASP.NET/VB.NET

					Imports System.Threading

					Public Class Thread
					Inherits System.Windows.Forms.Form
					' ........
					' Evènement de signal de fin de thread private
					Private _endThreadCalculsEvent As AutoResetEvnet = New AutoResetEvent(False)

					' Pour arrêter le thread private
					Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
					' L événement passe à l'état signalé
					_endThreadCalculsEvent.Set
					' On attend la fin du thread.
					_threadCalculs1.Join
					End Sub

					Sub ThrFunc1()
					Try
					Calculs(1000)
					Catch ex As Exception
					Debug.WriteLine(ex.ToString)
					End Try
					End Sub

					Private Sub Calculs(ByVal tempor As Integer)
					'Si l'évenement est à l'état signalé, WaitOne renvoie true et la boucle se termine.
					While Not _endThreadCalculsEvent.WaitOne(tempo, False)
					' C'est ici ou notre thread fait son travail
					End While
					End Sub
					End Class
				

					' Forcer la fin du thread
					Private Sub AbortThread()
					' On demande au runtime d'arrêter le Thread
					_threadCalculs1.Abort
					' On attend la fin du thread.
					_threadCalculs1.Join
					End Sub
				

					Public Class ThreadParametre
					Private _text As String
					Private _entier As Integer

					Public Sub New(ByVal texte As String, ByVal entier As Integer)
					_text = texte
					_entier = entier
					End Sub

					Public Sub ExecuteThread()
					Dim i As Integer = 0
					While i < _entier
					Console.WriteLine("Index : " + i)
					Console.WriteLine("Message : " + _text)
					System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)
					End While
					End Sub
					End Class
				

					Public Class Exemple

					Public Shared Sub Main()
					Dim ExempleThread As ThreadParametre = New ThreadParametre("Message de test", 5)
					Dim t As Thread = New Thread(New ThreadStart(ExempleThread.ExecuteThread))
					t.Start
					End Sub
					End Class
				

					Imports System.Threading

					Public Class Threads
					Inherits System.Web.Form
					Private _threadCalculs1 As Thread
					End Class
				

					Imports System.Threading

					Public Class Threads
					Inherits System.Windows.Forms.Form

					Private Sub ThrFunc1()
					Try
					Calculs(1000)
					Catch ex As Exception
					Debug.WriteLine(ex.ToString)
					End Try
					End Sub
					End Class
				

					Imports System.Threading

					Public Class Threads
					Inherits System.Windows.Forms.Form

					Private Sub StartThread()
					' ThrFunc est la fonction exécutée par le thread.
					_threadCalculs1 = New Thread(New ThreadStart(ThrFunc1))
					' Il est parfois pratique de nommer les threads surtout si on en créé plusieurs.
					_threadCalculs1.Name = "Thread1"
					' Démarrage du thread.
					_threadCalculs1.Start
					End Sub
					End Class