vb.net中如何結束一個線程

vb.net中如何結束一個線程

網站建設哪家好，找創新互聯！專注于網頁設計、網站建設、微信開發、重慶小程序開發、集團企業網站建設等服務項目。為回饋新老客戶創新互聯還提供了萬年免費建站歡迎大家使用！

一般而言,如果您想終止一個線程,您可以使用System.Threading.Thread類的Abort方法. 例如:

Dim worker As ThreadStart = New ThreadStart(AddressOf workerthreadmethod)

Dim t As Thread = New Thread(worker)

t.Start()

MessageBox.Show("Wait for a while for the thread to start.")

MessageBox.Show(t.ThreadState.ToString())

t.Abort()

MessageBox.Show(t.ThreadState.ToString())

t.Join()

MessageBox.Show(t.ThreadState.ToString())

當然,在調用Abort方法后,線程并不是立刻終止,要等線程的所有finally快中的代碼完成后才會完全終止. 所以在主線程中可以用Join方法來同步,當線程還未完全終止時,t.Join()將處于等待,直到t線程完全結束后再繼續執行后面的語句。

Abort方法是會導致線程跳出一個異常錯誤的，你需要在代碼中捕獲該異常。下面是一個比較完整的VB.NET線程例子：

Imports System

Imports System.Threading

Public Class MyTestApp

Public Shared Sub Main()

Dim t As New Thread(New ThreadStart(AddressOf MyThreadMethod))

'Start the thread

t.Start()

MsgBox("Are you ready to kill the thread?")

'Kill the child thread and this will cause the thread raise an exception

t.Abort()

' Wait for the thread to exit

t.Join()

MsgBox("The secondary thread has terminated.")

End Sub

Shared Sub MyThreadMethod()

Dim i As Integer

Try

Do While True

Thread.CurrentThread.Sleep(1000)

Console.WriteLine("This is the secondary thread running.")

Loop

Catch e As ThreadAbortException

MsgBox("This thread is going to be terminated by the Abort method in the Main function")

End Try

End Sub

End Class

Thread.Abort()方法用來永久銷毀一個線程，而且將拋出ThreadAbortException異常。使終結的線程可以捕獲到異常但是很難控制恢復，僅有的辦法是調用Thread.ResetAbort()來取消剛才的調用，而且只有當這個異常是由于被調用線程引起的異常。因此，A線程可以正確的使用Thread.Abort()方法作用于B線程，但是B線程卻不能調用Thread.ResetAbort()來取消Thread.Abort()操作。

你好，是只有VB.NET能多線程，還是所有VB都能實現多線程？

簡單回答：

1、當前來說，編程與運行環境合適的情況下，VB.net與VB都有實現多線程的可能。

2、VB、VB.net的最基本的概念，是調用系統的接口進行編程，只要系統提供“多線程”的功能調用，它們就能實現多線程。

3、VB注意于面向用戶，面向任務，其高級的一些程序實現需要直接調用win的API，VB實現多線程的例子也可以在網絡上搜索到。

一、關于VB、VB.net的相關知識：

1、編程指的是用人類能理解的語言來編寫指令集，并通過專用的編譯軟件或環境來轉化這些指令，使得這些指令能讓計算機識別，從而控制計算機做人類需要進行的工作。

2、也就是說無論是VB.NET還是VB它們都只是“人類能理解的語言”，它們通過專用的編譯軟件或環境來轉化這些指令，進而操作電腦。

3、進一步特化到VB上去說。VB基于VB的運行庫，它的運行庫又基于win的API（（Application Programming Interface,應用程序編程接口）是一些預先定義的函數），也就是說，VB的很多（多到90%以上）的功能是直接基于調用windows提供的一些基本接口函數。

4、VB.net有什么不同呢，它基于.net運行庫。什么 意思？這個意思就是，微軟發現win的API不夠用了，不好用了，就打算在windows上加裝點東西，讓它有更多的接口函數。但要注意的是，多數情況下，這些接口比win的API的效率要低一些。在win7及以后的版本的win中，已經自含了.net運行庫。

5、順便說，為什么很多人會發現win7的運行速度看起來要比xp慢呢，個人認為就是因為調用的是.net的接口來實現的，.net就是比API的慢。當然了，.net的功能上要比xp原有的API的功能強。

6、VB與VB.net在語法上是非常近似的，只是因為Visual Studio的版本不同，后期的Visual Studio已不提供簡純的VB了，注意它們的不同主要是后臺核心調用的理念上的不同。

VB.net 如何設計多線程運行

Sub Main()

Dim thr As Thread

For Pi As Integer=0 To 4 //啟用5線程

MulParams =Pi vbTab sFile vbTab dFile vbTab 1 vbTab DelN vbTab cr vbTab cg vbTab cb vbTab IndexI

GlobalParamas(pi)=MulParams .Split(vbTab)

thr=New Thread(AddressOf MyMulThreadCaller)

thr.Start() //啟動多線程進程

Application.DoEvents

Next

End Sub

VB.NET 簡單多線程

多線程一般是不推薦用的，因為線程之間如果有共享資源的話會引起競爭，需要加鎖處理；而且線程間沒有時序關系，所以你在調試中可能會出現異步處理結束順序與開始處理順序不一致的情況（我在調試中已經發現該問題）。

針對你提出的這個問題，采用了多線程處理，利用的是BackgroundWorker也就是異步處理控件進行了處理。

代碼已經經過調試通過。歡迎交流，如有問題，留下QQ或其他聯系方式。

代碼如下，并附程序截圖。

‘---------------------------------------------------

Imports?System.ComponentModel?'導入異步控件命名空間

Public?Class?Form1

Private?howmany?As?Integer?=?10

Private?AnalysisNumber(0?To?howmany?-?1)?As?BackgroundWorker

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

ListBox1.Items.Clear()

creatNewBackgroundWorker()

addHandle()

startWork()

End?Sub

Private?Sub?creatNewBackgroundWorker()

For?i?As?Integer?=?0?To?AnalysisNumber.Length?-?1

AnalysisNumber(i)?=?New?BackgroundWorker

Next

End?Sub

Private?Sub?addHandle()

For?i?As?Integer?=?0?To?AnalysisNumber.Length?-?1

AddHandler?AnalysisNumber(i).DoWork,?AddressOf?AnalysisNumber_DoWork

AddHandler?AnalysisNumber(i).RunWorkerCompleted,?AddressOf?AnalysisNumber_RunWorkerCompleted

Next

End?Sub

Private?Sub?startWork()

For?i?As?Integer?=?0?To?9

Dim?temp(0?To?9)?As?Integer

For?j?As?Integer?=?1?To?10

temp(j?-?1)?=?10?*?i?+?j

Next

AnalysisNumber(i).RunWorkerAsync(temp)

Next

End?Sub

Private?Sub?AnalysisNumber_DoWork(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.DoWorkEventArgs)

Dim?data?As?Integer()

data?=?CType(e.Argument,?Integer())

Dim?temp?As?Integer

For?i?As?Integer?=?0?To?data.Length?-?1

temp?=?data(i)

data(i)?=?temp?*?temp

Next

e.Result?=?data

End?Sub

Private?Sub?AnalysisNumber_RunWorkerCompleted(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.RunWorkerCompletedEventArgs)

Dim?data?As?Integer()

data?=?CType(e.Result,?Integer())

For?i?As?Integer?=?0?To?data.Length?-?1

ListBox1.Items.Add(data(i))

Next

End?Sub

End?Class