[vb.net]簡單多線程實例

1.Imports System  
2.Imports System.Threading  
3.  
4.  
5.Module Module1  
6.  
7.    Sub Main()  
8.  
9.        Dim mythread1 As Thread  
10.        Dim mythread2 As Thread  
11.        Dim mythread3 As Thread  
12.        '創建線程對象  
13.        mythread1 = New Thread(AddressOf mythreadrun)  
14.        mythread2 = New Thread(AddressOf mythreadrun)  
15.        mythread3 = New Thread(AddressOf mythreadrun)  
16.        Console.WriteLine(Now.ToLongTimeString & "線程對象創建完畢,開始執行線程")  
17.        '執行線程  
18.        mythread1.Start("線程1")  
19.        mythread2.Start("線程2")  
20.        mythread3.Start("線程3")  
21.        '等待線程完成  
22.        mythread1.Join()  
23.        mythread2.Join()  
24.        mythread3.Join()  
25.        '線程執行完畢  
26.        Console.WriteLine(Now.ToLongTimeString & "線程執行完畢!")  
27.    End Sub  
28.    Public Sub mythreadrun(ByVal data As Object)  
29.        Console.WriteLine(data & "," & Now.ToLongTimeString & "執行")  
30.    End Sub  
31.End Module  

Dim mythread1 As Thread 初始化Thread 類的新實例，指定允許對象在線程啟動時傳遞給線程的委托。

 線程不會在創建時開始執行。 若要為執行而調度線程，調用start方法。

上面代碼創建了3個thread對象，然后調用它們的start方法執行它們

調用join方法等它們執行完畢

可在VB.NET2010中建立一個新的Console應用程序，然后在模塊中編寫以上代碼

 

New Thread(AddressOf mythreadrun) 構造函數中必須將要做為線程執行的函數做為參數傳入

 

mythread1.Start("線程1") start方法可以在執行線程時，向其傳入參數

 

Imports System Imports System.Threading