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)

testSum.outputSum = sum

End Sub

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

运行如下：

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

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

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

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

栏目列表