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

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

类的定义：

Class clsSum11Private inputNum As IntegerPublic outputSum As IntegerSub New(ByVal inputNum As Integer)Me.inputNum = inputNumEnd SubPublic Event eventCurrentNum(ByVal currentNum As Integer)Public Sub getSum()Dim sum As Integer = 0For i As Integer = 0 To inputNumsum += iRaiseEvent eventCurrentNum(i)NextoutputSum = sumEnd 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 SubPrivate Sub sumNumber11_eventCurrentNum(currentNum As Integer) Handles sumNumber11.eventCurrentNumConsole.WriteLine("计算到：" & currentNum)End Sub

运行后的情况：

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

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

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