vb.net 教程 6-15 终止线程更好的例子

太过爱你忘了你带给我的痛 2022-09-11 03:27 107阅读 0赞

由于子线程很多时候都是需要长时间运算（如循环读写）之类，在它循环的时候检测变量状态是否符合，符合则退出循环，完成收尾工作，然后结束该线程。  
尽量避免生硬的使用Abort方法。  
定义一个模块级变量：

Dim abortThread As Boolean  
使用到的类：

Class clsSum2  
    Public inputNum As Integer  
    Public currentNum As Integer  
    Public outputSum As Integer  
End Class  
主代码：

Sub sample10()  
        abortThread = False  
        Dim maxNum As Integer = 20  
        Dim sumNumber As New clsSum2  
        sumNumber.inputNum = maxNum  
        Dim sample10\_Thread As New Thread(AddressOf sample10\_getSum)  
        sample10\_Thread.Start(sumNumber)  
        Do While True  
            If sumNumber.currentNum >= 10 Then  
                abortThread = True  
                Exit Do  
            End If  
            Thread.Sleep(10)  
        Loop  
        sample10\_Thread.Join()  
        Console.WriteLine("终止时运行到：\{0\}，和为：\{1\}", sumNumber.currentNum, sumNumber.outputSum)  
        Console.ReadKey()  
    End Sub  
   
    Sub sample10\_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  
            If abortThread = True Then Exit For  
            sum += i  
            testSum.currentNum = i  
            Thread.Sleep(10)  
        Next  
        testSum.outputSum = sum  
    End Sub  
这里只是介绍如何更好的终止线程，  
但是需要注意的是，由于通常是系统管理线程，如果只是想通过主线程不断循环来控制子线程，可能达不到想要的结果。  
因此上面的代码的结果仍然可能会是“终止时运行到：10，和为：55”或者“终止时运行到：11，和为：55”。如果是需要比较精确的结果，还是使用《vb.net 教程 6-13 线程调用类的方法并触发事件 》中的方法。

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参看 [vb.net教程][vb.net] 目录  
————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/