學(xué)習(xí)VB.NET時，經(jīng)常會遇到VB.NET線程同步問題，這里將介紹VB.NET線程同步問題的解決方法，在這里拿出來和大家分享一下。

VB.NET線程同步

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

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

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

另一個是Thread.Join方法，它可讓你等待一個特定的時間，直到一個線程完成。如果該線程在你指定的時間前完成了，Thread.Join將返回 True，否則它返回False。在平方的例子中，如果你不想使用觸發(fā)事件的方法，你可以調(diào)用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，將運(yùn)行在產(chǎn)生該事件的線程中。它并不是運(yùn)行在表格執(zhí)行的線程中。

【編輯推薦】

1. 詳細(xì)講述VB.NET開發(fā)控件
2. VB.NET Control類的屬性和方法
3. 解析VB.NET如何連接數(shù)據(jù)庫
4. VB.NET應(yīng)用程序中多線程的應(yīng)用實例
5. 淺析VB.NET程序?qū)W習(xí)經(jīng)驗