十年網(wǎng)站開發(fā)經(jīng)驗 + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊
量身定制 + 運(yùn)營維護(hù)+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
十年專注成都網(wǎng)站制作,企業(yè)網(wǎng)站建設(shè),個人網(wǎng)站制作服務(wù),為大家分享網(wǎng)站制作知識、方案,網(wǎng)站設(shè)計流程、步驟,成功服務(wù)上千家企業(yè)。為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁設(shè)計及定制高端網(wǎng)站建設(shè)服務(wù),專注于企業(yè)網(wǎng)站建設(shè),高端網(wǎng)頁制作,對成都服務(wù)器托管等多個行業(yè),擁有多年的網(wǎng)站營銷經(jīng)驗。
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)
錯誤》》》???t1.Start()
t2.Start()
t3.Start()
t4.Start()
t5.Start()
t6.Start()
t7.Start()
t8.Start()
t9.Start()
t10.Start()
Next
同樓上,每個Thread只能運(yùn)行一次
如果需要等待T2線程結(jié)束,那又何必開啟這個線程??!
直接:
Label1.Visible = True
setB()
MsgBox("d")
這不就是執(zhí)行完setB(),再執(zhí)行MsgBox("d"),多線程是多余的。
多線程的作用大多數(shù)也就用來同時執(zhí)行多任務(wù)而不用等待的。
我給你一個簡單的思路:
1,定義5個公共布爾變量,用來記錄5個線程的執(zhí)行情況
2,線程開始變量賦值假,執(zhí)行完畢或者異常退出賦值真
3,一直用一個定時器掃描5個公共布爾變量----------隨時知道狀態(tài)
使用api
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long