你需要定義一個(gè)公共變量模塊,來存儲線程類里面的變量。這樣在線程結(jié)束后變量值都存在模塊變量里面了。當(dāng)再次開啟線程再把數(shù)據(jù)賦給類里面。
創(chuàng)新互聯(lián)主營麻城網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,成都App定制開發(fā),麻城h5微信小程序搭建,麻城網(wǎng)站營銷推廣歡迎麻城等地區(qū)企業(yè)咨詢
首先,你把你那些要運(yùn)行很久的過程。盡量放在一個(gè)過程中。
因?yàn)榫€程只能是過程,不能使函數(shù),沒有返回值的。
然后,在某個(gè)事件下這樣寫:
**這里我假設(shè)你的那個(gè)很就的過程叫做 sub aaa()
調(diào)用如下:
Dim mythread As New System.Threading.Thread(AddressOf aaa)
mythread.Start()
***********
這樣就是定義一個(gè)線程,名字叫 mythread,這個(gè)線程會運(yùn)行aaa這個(gè)過程。
start 就是讓線程運(yùn)行。
Public m as string = textbox1.tex 不要放在任何過程里。加在script language=vb runat=server下邊
在這里
sub a()
可以訪問m了。
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() //啟動(dòng)多線程進(jìn)程
Application.DoEvents
Next
End Sub