Maak een nieuw project in Visual Basic gebaseerd op het Windows-formulier sjabloon . Kopen van 2

Voeg twee knoppen op het formulier . Noem een ​​" btnStart " met de tekst "Start " en de andere " btnStop " en de tekst " Stop . "
3

Toevoegen " Invoer System.Threading " aan de bovenkant van de code bestand
4

Dubbelklik op de knop " Start" en voeg de volgende code : .

Private Sub btnStart_Click
( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles btnStart.Click

t = Nieuwe Draad ( AddressOf Me.BackgroundProcess )

t.Start ( ) op

End Sub
5

verklaar de variabele " t" als volgt op de klasse -niveau :

Dim t
zoals Thread
6

Voeg de volgende code voor de " Stop " knop :

private Sub btnStop_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles btnStop.Click

t.Abort
( ) op

End Sub
7

Maak de sub routine die moet worden uitgevoerd als de draad , in dit geval is het zogenaamde " BackgroundProcess : "

Private sub BackgroundProcess ( )

' Doe iets lang hier als berekenen van pi uit een miljard cijfers .

do While True

Loop

End Sub

Uiteraard wil je iets nuttigs doen in deze routine , niet alleen een oneindige lus .
8

Voer het programma in de Visual Basic -editor . Druk op de knop "Start " . Er zal niet iets dat natuurlijk gebeurt zijn, maar probeer het programma te sluiten . Merken het niet de hele weg terug naar het bewerken in Visual Studio IDE verlaten . Druk op de "Stop Debugging " knop in de knoppenbalk van de IDE aan de steekproef programma stoppen uitvoeren .
9

Start het programma en druk op de knop "Start " om de draad te starten , dan druk op de " Stop " knop op het formulier om de draad te stoppen . Merk op dat bij het vormen van het programma is gesloten , de IDE gaat terug in edit mode als het lopende programma heeft beëindigd .