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
新聞熱點
疑難解答
