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

 

在《vb.net 教程 6-12 可以查看线程运行进度的例子》一节讲述了如何在主线程中获取线程运算的进度，但是在主线程中通过不断的循环来获取线程情况很浪费资源。本节将探讨如何通过调用类的方法和事件来获取进度。

 

类的定义：

 

Class clsSum11

    Private inputNum As Integer

    Public outputSum As Integer

 

    Sub New(ByVal inputNum As Integer)

        Me.inputNum = inputNum

    End Sub

 

    Public Event eventCurrentNum(ByVal currentNum As Integer)

 

    Public Sub getSum()

        Dim sum As Integer = 0

        For i As Integer = 0 To inputNum

            sum += i

            RaiseEvent eventCurrentNum(i)

        Next

        outputSum = sum

    End Sub

End Class

在clsSum11中

1、定义了一个 eventCurrentNum事件，其参数是当前计算到的数字

2、在getSum方法中，每计算一个数字，就触发事件eventCurrentNum

3、clsSum类的构造函数接受一个整数，作为求和计算终止的数字

 

定义一个模块级的公共变量sumNumber11

 

Dim WithEvents sumNumber11 As clsSum11

添加后，就可以在代码编辑器上方找到这个事件：

 

 

 

将事件加入后的代码：

 

    Sub sample11()

        sumNumber11 = New clsSum11(1000)

 

        Dim sample11_Thread As New Thread(AddressOf sumNumber11.getSum)

        sample11_Thread.Name = "Sum11"

        sample11_Thread.Start()

        sample11_Thread.Join()

        Console.WriteLine("和为：" & sumNumber11.outputSum)

        Console.ReadKey()

    End Sub

 

    Private Sub sumNumber11_eventCurrentNum(currentNum As Integer) Handles sumNumber11.eventCurrentNum

        Console.WriteLine("计算到：" & currentNum)

    End Sub

运行后的情况：

 

 

 

甚至连sleep都省略了也获得了正确的结果，相对《vb.net 教程 6-12 可以查看线程运行进度的例子》一节的方法，更推荐这个方法。

 

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

 

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

 

 

 

 

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

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

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