運(yùn)行VS2013 的VB.NET程序時(shí)錯(cuò)誤（其他信息: 線程正在運(yùn)行或被終止；它無(wú)法重新啟動(dòng)。）怎么辦？

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

十年專注成都網(wǎng)站制作，企業(yè)網(wǎng)站建設(shè)，個(gè)人網(wǎng)站制作服務(wù)，為大家分享網(wǎng)站制作知識(shí)、方案，網(wǎng)站設(shè)計(jì)流程、步驟,成功服務(wù)上千家企業(yè)。為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁(yè)設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù),專注于企業(yè)網(wǎng)站建設(shè),高端網(wǎng)頁(yè)制作,對(duì)成都服務(wù)器托管等多個(gè)行業(yè)，擁有多年的網(wǎng)站營(yíng)銷經(jīng)驗(yàn)。

For?s?=?1?To?11?Step?10

t1?=?New?Threading.Thread(AddressOf?setA)

t2?=?New?Threading.Thread(AddressOf?setB)

t3?=?New?Threading.Thread(AddressOf?setC)

t4?=?New?Threading.Thread(AddressOf?setD)

t5?=?New?Threading.Thread(AddressOf?setE)

t6?=?New?Threading.Thread(AddressOf?setF)

t7?=?New?Threading.Thread(AddressOf?setG)

t8?=?New?Threading.Thread(AddressOf?setH)

t9?=?New?Threading.Thread(AddressOf?setI)

t10?=?New?Threading.Thread(AddressOf?setJ)

錯(cuò)誤》》》???t1.Start()

t2.Start()

t3.Start()

t4.Start()

t5.Start()

t6.Start()

t7.Start()

t8.Start()

t9.Start()

t10.Start()

Next

同樓上，每個(gè)Thread只能運(yùn)行一次

vb點(diǎn)虐 ，等待一個(gè)線程結(jié)束的問(wèn)題

如果需要等待T2線程結(jié)束，那又何必開(kāi)啟這個(gè)線程??！

直接：

Label1.Visible = True

setB()

MsgBox("d")

這不就是執(zhí)行完setB()，再執(zhí)行MsgBox("d")，多線程是多余的。

多線程的作用大多數(shù)也就用來(lái)同時(shí)執(zhí)行多任務(wù)而不用等待的。

vb點(diǎn)虐 如何判斷線程執(zhí)行完畢？

我給你一個(gè)簡(jiǎn)單的思路：

1，定義5個(gè)公共布爾變量，用來(lái)記錄5個(gè)線程的執(zhí)行情況

2，線程開(kāi)始變量賦值假，執(zhí)行完畢或者異常退出賦值真

3，一直用一個(gè)定時(shí)器掃描5個(gè)公共布爾變量----------隨時(shí)知道狀態(tài)

vb點(diǎn)虐 如何強(qiáng)制終止子線程？

使用api

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