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

 

首先看代码：

 

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

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/UruseiBest/article/details/87892468