Sub Main()
創(chuàng)新互聯(lián)是專業(yè)的秀山土家族苗族網(wǎng)站建設(shè)公司,秀山土家族苗族接單;提供成都網(wǎng)站建設(shè)、網(wǎng)站制作,網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行秀山土家族苗族網(wǎng)站開發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!
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() //啟動(dòng)多線程進(jìn)程
Application.DoEvents
Next
End Sub
這個(gè)線程對(duì)象一定有個(gè)完成時(shí)或者進(jìn)行中的動(dòng)作,你可以用AddHandler語(yǔ)句來將過程委托給ProcessChanged或者ProcessConpleted動(dòng)作。
過程名是不可能作為參數(shù)使用的,想必你需要調(diào)用的過程是有限的,那么可以用一個(gè)變量來確定:
sub 過程名(p as integer)
Dim i As Threading.Thread
select case p
case 1
i = New Threading.Thread(AddressOf 過程1)
case 2
i = New Threading.Thread(AddressOf 過程2)
.........................
..........................
end select
i.start()
end sub