版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
在有些时候需要主动终止某个线程,这时可以调用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知识,请参看 vb.net 教程 目录