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

 

本节的例子通过主线程不断读取类的值来获得子线程运行情况：

 

使用到的类：

 

Class clsSum2

    Public inputNum As Integer

    Public currentNum As Integer

    Public outputSum As Integer

End Class

其中currentNum保存当前正在计算的那个整数。

 

    Sub sample8()

        Dim maxNum As Integer = 20

        Dim sumNumber As New clsSum2

        sumNumber.inputNum = maxNum

 

        Dim sample8_Thread As New Thread(AddressOf sample8_getSum)

        sample8_Thread.Start(sumNumber)

        Do Until sumNumber.currentNum >= maxNum

            Console.WriteLine("当前计算到：{0}", sumNumber.currentNum)

            Thread.Sleep(100)

        Loop

        sample8_Thread.Join()

 

        Console.WriteLine("和为：{0}", sumNumber.outputSum)

        Console.ReadKey()

    End Sub

    Sub sample8_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

可以看到调用子线程后，主线程不断地做循环调用，需要注意的是，防止主线程或子线程占用完cpu，应该使用sleep。

 

运行如下：

 

 

 

 

 

 

 

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

 

学习更多vb.net知识，请参看vb.net 教程 目录

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

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

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