重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
试试这个怎么样,添加在子进程里面,就加在你批量传输代码里的每一个传输后面,也就是大批量中的每传输一个数据就暂停一下,而不是每一个大批量才暂停一下
成都创新互联长期为上1000家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为邯郸企业提供专业的网站建设、成都做网站,邯郸网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
System.Threading.Thread.Sleep(10) '让它走慢一点
过程名是不可能作为参数使用的,想必你需要调用的过程是有限的,那么可以用一个变量来确定:
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 New Thread(AddressOf 循环) thr.Start("a") End Sub Sub 循环(a() As String) '这里随你干什么循环也行 For Each i As String In a MsgBox(i) Next End Sub