vb.net 教程 6-13 线程调用类的方法并触发事件

当前位置:

在《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)

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 教程目录

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

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

栏目列表