十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
你需要定义一个公共变量模块,来存储线程类里面的变量。这样在线程结束后变量值都存在模块变量里面了。当再次开启线程再把数据赋给类里面。
创新互联主营麻城网站建设的网络公司,主营网站建设方案,成都App定制开发,麻城h5微信小程序搭建,麻城网站营销推广欢迎麻城等地区企业咨询
首先,你把你那些要运行很久的过程。尽量放在一个过程中。
因为线程只能是过程,不能使函数,没有返回值的。
然后,在某个事件下这样写:
**这里我假设你的那个很就的过程叫做 sub aaa()
调用如下:
Dim mythread As New System.Threading.Thread(AddressOf aaa)
mythread.Start()
***********
这样就是定义一个线程,名字叫 mythread,这个线程会运行aaa这个过程。
start 就是让线程运行。
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() //启动多线程进程
Application.DoEvents
Next
End Sub