运行VS2013 的VB.NET程序时错误（其他信息: 线程正在运行或被终止；它无法重新启动。）怎么办？

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

十年专注成都网站制作，企业网站建设，个人网站制作服务，为大家分享网站制作知识、方案，网站设计流程、步骤,成功服务上千家企业。为您提供网站建设,网站制作,网页设计及定制高端网站建设服务,专注于企业网站建设,高端网页制作,对成都服务器托管等多个行业，拥有多年的网站营销经验。

For s = 1 To 11 Step 10

t1 = New Threading.Thread(AddressOf setA)

t2 = New Threading.Thread(AddressOf setB)

t3 = New Threading.Thread(AddressOf setC)

t4 = New Threading.Thread(AddressOf setD)

t5 = New Threading.Thread(AddressOf setE)

t6 = New Threading.Thread(AddressOf setF)

t7 = New Threading.Thread(AddressOf setG)

t8 = New Threading.Thread(AddressOf setH)

t9 = New Threading.Thread(AddressOf setI)

t10 = New Threading.Thread(AddressOf setJ)

错误》》》   t1.Start()

t2.Start()

t3.Start()

t4.Start()

t5.Start()

t6.Start()

t7.Start()

t8.Start()

t9.Start()

t10.Start()

Next

同楼上，每个Thread只能运行一次

vb点虐 ，等待一个线程结束的问题

如果需要等待T2线程结束，那又何必开启这个线程！！

直接：

Label1.Visible = True

setB()

MsgBox("d")

这不就是执行完setB()，再执行MsgBox("d")，多线程是多余的。

多线程的作用大多数也就用来同时执行多任务而不用等待的。

vb点虐 如何判断线程执行完毕？

我给你一个简单的思路：

1，定义5个公共布尔变量，用来记录5个线程的执行情况

2，线程开始变量赋值假，执行完毕或者异常退出赋值真

3，一直用一个定时器扫描5个公共布尔变量----------随时知道状态

vb点虐 如何强制终止子线程？

使用api

Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

名称栏目：vb点虐 线程终止 vb终止程序
浏览地址：http://myzitong.com/article/ddjseji.html