华南俳烁实业有限公司

　　Function Square(ByVal Value As Double) As Double

　　Return Value * Value

　　End Function

　　為了在一個(gè)新的線程中使用這個(gè)過程，我們將它封裝到一個(gè)類中：

　　Public Class SquareClass

　　Public Value As Double

　　Public Square As Double

　　Public Sub CalcSquare()

　　Square = Value * Value

　　End Sub

　　End Class

　　使用這些代碼來在一個(gè)新的線程上啟動(dòng)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

　　要注意到，在線程啟動(dòng)后，我們并沒有檢查類中的square值，因?yàn)榧词鼓阏{(diào)用了線程的start方法，也不能確保其中的方法馬上執(zhí)行完。要從另一個(gè)線程中得到值，有幾個(gè)方法，這里使用的方法是最簡單的，即是在線程完成的時(shí)候觸發(fā)一個(gè)事件。我們將在后面的線程同步中討論另一個(gè)方法。以下的代碼為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

　　在調(diào)用代碼中捕捉事件的方法和VB6差不多，你仍然要聲明WithEvents變量，并且在一個(gè)過程中處理事件。有些不同的是，你聲明處理事件的過程使用的是Handles關(guān)鍵字，而不是通過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

　　對(duì)于這種方法，要注意的是處理事件的過程，在這個(gè)例子中的是SquareEventHandler，將運(yùn)行在產(chǎn)生該事件的線程中。它并不是運(yùn)行在表格執(zhí)行的線程中。

　　同步線程

　　在線程的同步方面，VB.NET提供了幾個(gè)方法。在上面的平方例子中，你要與執(zhí)行計(jì)算的線程同步，以便等待它執(zhí)行完并且得到結(jié)果。另一個(gè)例子是，如果你在其它線程中排序一個(gè)數(shù)組，那么在使用該數(shù)組前，你必須等待該處理完成。為了進(jìn)行這些同步，VB.NET提供了SyncLock聲明和Thread.Join方法。

　　SyncLock可得到一個(gè)對(duì)象引用的唯一鎖，只要將該對(duì)象傳送給SyncLock就行了。通過得到這個(gè)唯一鎖，你可以確保多個(gè)線程不會(huì)訪問共享的數(shù)據(jù)或者在多個(gè)線程上執(zhí)行的代碼。要得到一個(gè)鎖，可使用一個(gè)較為便利的對(duì)象--與每個(gè)類關(guān)聯(lián)的System.Type對(duì)象。System.Type對(duì)象可通過使用GetType方法得到：

　　Public Sub CalcSquare()

　　SyncLock GetType(SquareClass)

　　Square = Value * Value

　　End SyncLock

　　End Sub

　　另一個(gè)是Thread.Join方法，它可讓你等待一個(gè)特定的時(shí)間，直到一個(gè)線程完成。如果該線程在你指定的時(shí)間前完成了，Thread.Join將返回True，否則它返回False。在平方的例子中，如果你不想使用觸發(fā)事件的方法，你可以調(diào)用Thread.Join的方法來決定計(jì)算是否完成了。代碼如下所示：

　　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

　　對(duì)于這種方法，要注意的是處理事件的過程，在這個(gè)例子中的是SquareEventHandler，將運(yùn)行在產(chǎn)生該事件的線程中。它并不是運(yùn)行在表格執(zhí)行的線程中。