vb.net中如何結(jié)束一個線程

vb.net中如何結(jié)束一個線程

十余年的桂平網(wǎng)站建設(shè)經(jīng)驗，針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時及時工作處理。營銷型網(wǎng)站的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整桂平建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計，從而大程度地提升瀏覽體驗。成都創(chuàng)新互聯(lián)從事“桂平網(wǎng)站設(shè)計”,“桂平網(wǎng)站推廣”以來，每個客戶項目都認真落實執(zhí)行。

一般而言,如果您想終止一個線程,您可以使用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())

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

Abort方法是會導(dǎo)致線程跳出一個異常錯誤的，你需要在代碼中捕獲該異常。下面是一個比較完整的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異常。使終結(jié)的線程可以捕獲到異常但是很難控制恢復(fù)，僅有的辦法是調(diào)用Thread.ResetAbort()來取消剛才的調(diào)用，而且只有當這個異常是由于被調(diào)用線程引起的異常。因此，A線程可以正確的使用Thread.Abort()方法作用于B線程，但是B線程卻不能調(diào)用Thread.ResetAbort()來取消Thread.Abort()操作。

在vb.net中，多線程如何使用

Sub Main() Dim thr As New Thread(AddressOf 循環(huán)) thr.Start("a") End Sub Sub 循環(huán)(a() As String) '這里隨你干什么循環(huán)也行 For Each i As String In a MsgBox(i) Next End Sub

求教VB.net多線程問題

多線程是用于處理復(fù)雜項目的

打個比方

你的主程序線程A中有個循環(huán)，由于代碼是一行行走的，所以循環(huán)結(jié)束前下面的代碼無法運行，而此時主界面的反應(yīng)就類似卡死的樣子，你點擊按鈕也沒有反應(yīng)，因為主線程在忙著循環(huán)呢，所以對按鈕的事件代碼要等待了，如果要避免這種情況，就要用到多線程，另開一個新線程專門用來執(zhí)行循環(huán)代碼，主界面就不會卡死了，只要在循環(huán)結(jié)束后將結(jié)果傳回主線程調(diào)用就可以了，再復(fù)雜點要涉及到委托，控制了

按你的要求其實你的代碼用不到多線程，只要把sleep放到兩段代碼中間就可以了。

新線程結(jié)束用thread.abort()

vb.net 多線程操作

將循環(huán)放入到另一個線程中

ThreadStart ts = new ThreadStart(delegate() {

//do something

});

Thread t = new Thread(ts);

t.Start();

//going do something

VB.net多線程編程問題

你可以在timer前用if判斷網(wǎng)絡(luò)狀態(tài)，

如斷開，可用

threading.Thread.Sleep（10000） ‘當前線程掛起10秒

’可以開一個新線程去讀取脫機數(shù)據(jù)。

如連接，則繼續(xù)執(zhí)行。

補充：

dim i as integer

'超過100次退出，避免死循環(huán)

for i=0 to 100

try

'ping你的端口

if ‘ok

exit for

else

threading.Thread.Sleep（10000） ‘當前線程掛起10秒

end

Catch ex As Exception

End Try

next

vb.net 如何強制終止子線程？

使用api

Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long