過程名是不可能作為參數(shù)使用的,想必你需要調(diào)用的過程是有限的,那么可以用一個變量來確定:
專注于為中小企業(yè)提供成都網(wǎng)站設(shè)計、做網(wǎng)站服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)亭湖免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了1000多家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。
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
Sub Main()
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
將循環(huán)放入到另一個線程中
ThreadStart ts = new ThreadStart(delegate() {
//do something
});
Thread t = new Thread(ts);
t.Start();
//going do something
Timer 是在 主線程里執(zhí)行的,Thread 是在自己的線程中執(zhí)行的,多核心的CPU使用線程能提高處理能力?;氐侥愕膯栴},主線程如果卡死,timer就會失去響應(yīng),很正常的。請使用System.Timers.Timer類吧。請參考一下: