vb.net 教程 6-7 获得线程状态以及终止线程

￡神魔★判官ぃ 2022-09-11 02:27 129阅读 0赞

首先看代码：

Dim sample2\_workThread As Thread  
    Sub sample2()  
        sample2\_workThread = New Thread(AddressOf sample2\_printI)  
        sample2\_workThread.Start()  
        Dim stateThread As New Thread(AddressOf sample2\_printState)  
        stateThread.Start()  
        Console.ReadKey()  
   
    End Sub  
    Sub sample2\_printI()  
        For i As Integer = 0 To 100  
            Console.Write(Chr(i + 65) & ":")  
            Thread.Sleep(10)  
        Next  
    End Sub  
    Sub sample2\_printState()  
        For i As Integer = 0 To 100  
            Console.Write(sample2\_workThread.ThreadState & ",")  
            If i = 10 Then  
                sample2\_workThread.Abort()  
                Exit Sub  
            End If  
            Thread.Sleep(10)  
        Next  
    End Sub  
代码分析：  
程序启动了两个线程，一个线程sample2\_printI 负责输出字母序号，另外一个线程sample2\_printState输出sample2\_printI 的状态，同时当计数为10时，终止sample2\_printI 和自身。由于需要从sample2\_printState终止sample2\_printI ，因此将sample2\_printI 设置为模块级公共变量。  
在sample2\_printState中调用了TheadState方法来获取线程状态，调用Abort方法来终止线程。

运行如下：

但事实上由于线程运行是由系统调节，更多的时候得到的并不是上面那个A-K带数字的顺序：

由于.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/