重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Sub Main()
创新互联是专业的秀山土家族苗族网站建设公司,秀山土家族苗族接单;提供成都网站建设、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行秀山土家族苗族网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
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
这个线程对象一定有个完成时或者进行中的动作,你可以用AddHandler语句来将过程委托给ProcessChanged或者ProcessConpleted动作。
过程名是不可能作为参数使用的,想必你需要调用的过程是有限的,那么可以用一个变量来确定:
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