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

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

線程不會在創(chuàng)建時開始執(zhí)行。 若要為執(zhí)行而調(diào)度線程，調(diào)用start方法。

上面代碼創(chuàng)建了3個thread對象，然后調(diào)用它們的start方法執(zhí)行它們

調(diào)用join方法等它們執(zhí)行完畢

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

New Thread(AddressOf mythreadrun)
構(gòu)造函數(shù)中必須將要做為線程執(zhí)行的函數(shù)做為參數(shù)傳入

mythread1.Start(“線程1”)
start方法可以在執(zhí)行線程時，向其傳入?yún)?shù)

Imports System
Imports System.Threading

程序需要導(dǎo)入以上命名空間

Imports System Imports System.ThreadingModule Module1Sub Main()Dim mythread1 As ThreadDim mythread2 As ThreadDim mythread3 As Thread'創(chuàng)建線程對象mythread1 = New Thread(AddressOf mythreadrun)mythread2 = New Thread(AddressOf mythreadrun)mythread3 = New Thread(AddressOf mythreadrun)Console.WriteLine(Now.ToLongTimeString & "線程對象創(chuàng)建完畢,開始執(zhí)行線程")'執(zhí)行線程mythread1.Start("線程1")mythread2.Start("線程2")mythread3.Start("線程3")'等待線程完成mythread1.Join()mythread2.Join()mythread3.Join()'線程執(zhí)行完畢Console.WriteLine(Now.ToLongTimeString & "線程執(zhí)行完畢!")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 & "計算結(jié)果為：" & jg)Thread.Sleep(1)NextCatchConsole.WriteLine(data & ":" & Now.ToLongTimeString & "線程異常終止!")'終止線程Thread.CurrentThread.Abort()End TryEnd Sub End Module

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

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。