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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

首先看代码：

    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 教程 目录