VB.net 如何設(shè)計多線程運行

Sub Main()

創(chuàng)新互聯(lián)從2013年成立，公司以成都網(wǎng)站建設(shè)、成都網(wǎng)站制作、系統(tǒng)開發(fā)、網(wǎng)絡(luò)推廣、文化傳媒、企業(yè)宣傳、平面廣告設(shè)計等為主要業(yè)務(wù)，適用行業(yè)近百種。服務(wù)企業(yè)客戶超過千家，涉及國內(nèi)多個省份客戶。擁有多年網(wǎng)站建設(shè)開發(fā)經(jīng)驗。為企業(yè)提供專業(yè)的網(wǎng)站建設(shè)、創(chuàng)意設(shè)計、宣傳推廣等服務(wù)。 通過專業(yè)的設(shè)計、獨特的風(fēng)格，為不同客戶提供各種風(fēng)格的特色服務(wù)。

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 多線程運行問題

多線程是用于處理復(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多線程編程問題

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

如斷開，可用

threading.Thread.Sleep（10000） ‘當(dāng)前線程掛起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） ‘當(dāng)前線程掛起10秒

end

Catch ex As Exception

End Try

next

在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