上海商务英语vb教程6-14终⽌线程的例⼦
版权声明：本⽂为博主原创⽂章，转载请在显著位置标明本⽂出处以及作者⽹名，未经作者允许不得⽤于商业⽬的。
在有些时候需要主动终⽌某个线程，这时可以调⽤Thread.Abort⽅法。
例如以下的代码：
使⽤到的类：
Class clsSum2
Public inputNum As Integer
high maintenancePublic currentNum As Integer
Public outputSum As Integer
End Class
主线程代码：
Sub sample9()
Dim maxNum As Integer = 20
什么是权责发生制Dim sumNumber As New clsSum2
sumNumber.inputNum = maxNum
Dim sample9_Thread As New Thread(AddressOf sample9_getSum)
liftup
sample9_Thread.Start(sumNumber)
审时度势是什么意思Do Until sumNumber.currentNum >= 10
Thread.Sleep(100)
Loop
sample9_Thread.Abort()
Console.WriteLine("终⽌时运⾏到：{0}，和为：{1}", sumNumber.currentNum, sumNumber.outputSum) Console.ReadKey()
End Sub
Sub sample9_getSum(ByVal obj As Object)被子植物和裸子植物
Dim testSum As New clsSum2
testSum = CType(obj, clsSum2)
Dim sum As Integer = 0
For i As Integer = 0 To testSum.inputNum
sum += i
dirxtestSum.currentNum = i
Thread.Sleep(100)
Next
testSum.outputSum = sum
ambition是什么意思
End Sub
原本我们希望当⼦线程中循环求和计算到10时就停⽌并输出和值，但是实际常常得到的结果是：
或者
也就是说，根本没有运⾏到testSum.outputSum=sum，这就需要随时保存outputSum的值。
修改后的代码如下：
Sub sample9()
Dim maxNum As Integer = 20
Dim sumNumber As New clsSum2
sumNumber.inputNum = maxNum
Dim sample9_Thread As New Thread(AddressOf sample9_getSum)
sample9_Thread.Start(sumNumber)
monster 歌词
Do Until sumNumber.currentNum >= 10
Thread.Sleep(100)
Loop
sample9_Thread.Abort()
Console.WriteLine("终⽌时运⾏到：{0}，和为：{1}", sumNumber.currentNum, sumNumber.outputSum)
Console.ReadKey()
End Sub
Sub sample9_getSum(ByVal obj As Object)
Dim testSum As New clsSum2
testSum = CType(obj, clsSum2)
Dim sum As Integer = 0
For i As Integer = 0 To testSum.inputNum
sum += i
testSum.currentNum = i
Thread.Sleep(100)
英文字母歌曲testSum.outputSum = sum
Next
End Sub
运⾏结果：
或者主线程⼤意了，放⼦线程多运⾏了⼀次循环：
这个例⼦说明了些问题：
1、线程其实并不好控制，需要多练习
2、将输出值放到了循环内部，每次循环都运⾏⼀次，实际占⽤了资源
在下⼀节将讲述如何更好的控制线程的终⽌。
由于平台下C#和vb很相似，本⽂也可以为C#爱好者提供参考。
学习更多vb知识，请参⽬录
版权声明：本⽂为CSDN博主「VB.Net」的原创⽂章，遵循CC 4.0 BY-SA版权协议，转载请附上原⽂出处链接及本声明。
