版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
在有些时候需要主动终止某个线程，这时可以调用Thread.Abort方法。
例如以下的代码：
使用到的类：
Class clsSum2
Public inputNum As Integer
Public 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)
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
testSum.currentNum = i
Thread.Sleep(100)
Next
testSum.outputSum = sum
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)
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、将输出值放到了循环内部，每次循环都运行一次，实际占用了资源
在下一节将讲述如何更好的控制线程的终止。
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识，请参目录
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
