En tråd är ett självständigt verkställande bit kod . Ett program som körs är faktiskt en tråd , men programmet kan faktiskt starta och stoppa trådar av sina egna. Detta är hur ett program kan leka en långvarig process, men ändå svara på användarens önskemål eller göra annan bearbetning . Innan en tråd kan stoppas i Visual Basic det måste startas . Instruktioner
1
Skapa ett nytt projekt i Visual Basic bygger på Windows formulärmallen .
2
Lägg två knappar till formuläret . Nämn en " btnStart " med texten " Start " och den andra " btnStop " och texten " Stop . " Addera 3
Lägg " Importen System.Threading " längst upp i koden fil
4
Dubbelklicka på " Start " knappen och lägg till följande kod : .
Private Sub btnStart_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Hanterar btnStart.Click
t = Nytt Inlägg ( AddressOf Me.BackgroundProcess ) katalog
t.Start ( ) katalog
End Sub
5
deklarera variabeln " t " som följer på klassnivå :
Dim t som Thread
6
Lägg till följande kod för " Stop " -knappen :
Private Sub btnStop_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag btnStop.Click
t.Abort ( ) katalog
End Sub
7
Skapa sub rutin som ska köras som tråden , i detta fall kallas " BackgroundProcess : "
Private sub BackgroundProcess ( ) katalog
" Gör något länge här som beräkna Pi ut till en miljard siffror .
do While Sant
Loop
End Sub
Självklart kommer du vill göra något nyttigt i denna rutin , inte bara en oändlig loop .
8
Kör programmet i Visual Basic Editor . Tryck på " Start " -knappen . Det brukar vara något som uppenbarligen händer , men försök att stänga programmet . Märker det inte gå hela vägen tillbaka till redigering i Visual Studio IDE . Tryck på "Stop Debugging " knappen i knappraden för IDE att avbryta provet programmet från att köra .
9
Kör programmet igen och tryck på " Start " -knappen för att starta tråden , då slå den " Stop " -knappen på formuläret för att stoppa tråden . Lägg märke till att när programmets formen är stängd , går IDE tillbaka till redigeringsläge som kör programmet gjorde avsluta .
