vb.net 教程 6-12 可以查看线程运行进度的例子

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

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

使用到的类：

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