VB.NET多线程应用

　通过多线程程序传送数据

　　上面的例子只是一个相当简单的应用。在编程时，你还需要使用到多线程的许多复杂特性。其中的一个问题是如何将程序的数据由线程类的构造器传入或者传出，也就是说，对于放到另外一个线程中的过程，你既不能传参数给它，也不能由它返回值。这是由于你传入到线程构造器的过程是不能拥有任何的参数或者返回值的。为了解决这个问题，可以将你的过程封装到一个类中，这样方法的参数就可使用类中的字段。

　　这里我们举一个简单的例子，如果我们要计算一个数的平方，即：

Function Square(ByVal Value As Double) As Double Return Value * Value End Function

　　为了在一个新的线程中使用这个过程，我们将它封装到一个类中：

Public Class SquareClass Public Value As Double Public Square As Double Public Sub CalcSquare() Square = Value * Value End Sub End Class

　　使用这些代码来在一个新的线程上启动CalcSquare过程，如下所示：

Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim oSquare As New SquareClass() t = New Thread(AddressOf oSquare.CalcSquare) oSquare.Value = 30 t.Start() End Sub

要注意到，在线程启动后，我们并没有检查类中的square值，因为即使你调用了线程的start方法，也不能确保其中的方法马上执行完。要从另一个线程中得到值，有几个方法，这里使用的方法是最简单的，即是在线程完成的时候触发一个事件。我们将在后面的线程同步中讨论另一个方法。以下的代码为SquareClass加入了事件声明。

Public Class SquareClass Public Value As Double Public Square As Double Public Event ThreadComplete(ByVal Square As Double) Public Sub CalcSquare() Square = Value * Value RaiseEvent ThreadComplete(Square) End Sub End Class

在调用代码中捕捉事件的方法和VB6差不多，你仍然要声明WithEvents变量，并且在一个过程中处理事件。有些不同的是，你声明处理事件的过程使用的是Handles关键字，而不是通过VB6中通常使用的Object_Event。

Dim WithEvents oSquare As SquareClass Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click oSquare = New SquareClass() t = New Thread(AddressOf oSquare.CalcSquare) oSquare.Value = 30 t.Start() End Sub Sub SquareEventHandler(ByVal Square As Double) _ Handles oSquare.ThreadComplete MsgBox("The square is " & Square) End Sub

对于这种方法，要注意的是处理事件的过程，在这个例子中的是SquareEventHandler，将运行在产生该事件的线程中。它并不是运行在表格执行的线程中。

　　同步线程

　　在线程的同步方面，VB.NET提供了几个方法。在上面的平方例子中，你要与执行计算的线程同步，以便等待它执行完并且得到结果。另一个例子是，如果你在其它线程中排序一个数组，那么在使用该数组前，你必须等待该处理完成。为了进行这些同步，VB.NET提供了SyncLock声明和Thread.Join方法。

　　SyncLock可得到一个对象引用的唯一锁，只要将该对象传送给SyncLock就行了。通过得到这个唯一锁，你可以确保多个线程不会访问共享的数据或者在多个线程上执行的代码。要得到一个锁，可使用一个较为便利的对象--与每个类关联的System.Type对象。System.Type对象可通过使用GetType方法得到：

Public Sub CalcSquare() SyncLock GetType(SquareClass) Square = Value * Value End SyncLock End Sub

　　另一个是Thread.Join方法，它可让你等待一个特定的时间，直到一个线程完成。如果该线程在你指定的时间前完成了，Thread.Join将返回True，否则它返回False。在平方的例子中，如果你不想使用触发事件的方法，你可以调用Thread.Join的方法来决定计算是否完成了。代码如下所示：

Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim oSquare As New SquareClass() t = New Thread(AddressOf oSquare.CalcSquare) oSquare.Value = 30 t.Start() If t.Join(500) Then MsgBox(oSquare.Square) End If End Sub

对于这种方法，要注意的是处理事件的过程，在这个例子中的是SquareEventHandler，将运行在产生该事件的线程中。它并不是运行在表格执行的线程中。

查看本文来源