Imports System Imports System.ThreadingModule Module1Sub Main()Dim mythread1 As ThreadDim mythread2 As ThreadDim mythread3 As Thread'創建線程對象mythread1 = New Thread(AddressOf mythreadrun)mythread2 = New Thread(AddressOf mythreadrun)mythread3 = New Thread(AddressOf mythreadrun)Console.WriteLine(Now.ToLongTimeString & "線程對象創建完畢,開始執行線程")'執行線程mythread1.Start("線程1")mythread2.Start("線程2")mythread3.Start("線程3")'等待線程完成mythread1.Join()mythread2.Join()mythread3.Join()'線程執行完畢Console.WriteLine(Now.ToLongTimeString & "線程執行完畢!")End SubPublic Sub mythreadrun(ByVal data As Object)Console.WriteLine(data & "," & Now.ToLongTimeString & "執行")End SubEnd Module

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

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

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

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

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

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

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

Imports System
Imports System.Threading

程序需要導入以上命名空間

Imports System Imports System.ThreadingModule Module1Sub Main()Dim mythread1 As ThreadDim mythread2 As ThreadDim mythread3 As Thread'創建線程對象mythread1 = New Thread(AddressOf mythreadrun)mythread2 = New Thread(AddressOf mythreadrun)mythread3 = New Thread(AddressOf mythreadrun)Console.WriteLine(Now.ToLongTimeString & "線程對象創建完畢,開始執行線程")'執行線程mythread1.Start("線程1")mythread2.Start("線程2")mythread3.Start("線程3")'等待線程完成mythread1.Join()mythread2.Join()mythread3.Join()'線程執行完畢Console.WriteLine(Now.ToLongTimeString & "線程執行完畢!")End SubPublic Sub mythreadrun(ByVal data As Object)Dim mynum As IntegerDim jg As Integermynum = 20TryFor mynum = 20 To -20 Step -1jg = 1000 / mynumConsole.WriteLine(data & ":" & Now.ToLongTimeString & "，1000 / " & mynum & "計算結果為：" & jg)Thread.Sleep(1)NextCatchConsole.WriteLine(data & ":" & Now.ToLongTimeString & "線程異常終止!")'終止線程Thread.CurrentThread.Abort()End TryEnd Sub End Module

在線程中計算1000/mynum的值，其中mynum從20開始遞減，到0時會出現除0異常，調用Thread.CurrentThread.Abort()
完成終止線程的操作

TryFor mynum = 20 To -20 Step -1jg = 1000 / mynumConsole.WriteLine(data & ":" & Now.ToLongTimeString & "，1000 / " & mynum & "計算結果為：" & jg)Thread.Sleep(1)Next CatchConsole.WriteLine(data & ":" & Now.ToLongTimeString & "線程異常終止!")'終止線程Thread.CurrentThread.Abort() End Try

總結

以上是生活随笔為你收集整理的vb.net2019-多线程并行计算（1）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。