Question

VB.Net 如何将某个Sub单独在新的线程中运行

我的代码里有一个Sub要进行非常多运算，运行时严重影响其他代码的执行，导致比较严重的卡顿
所以我想用多线程，让那个Sub单独一个进程运行
我用的是Vs2010,网上找的多线程创建的代码像
Dim Thread1 As New System.Threading.Thread(AddressOfTasks.SomeTask)
都提示错误，请问正确代码要怎么写？
还有我的Sub是有传输几个值如Public Sub CountProbability(ByVal Type As Integer)，而创建线程好像Sub名后不能带括号，这又该如何解决？

Answer 1

dim td1 as Thread=New Thread(New ParameterizedThreadStart(sub名称),
td.Start(参数obj)

参数obj ,如果比较多，最好封装到一个类中，然后，到线程中，在强制转为你的类。
sub CountProbability(para as object) //没试过能不能直接写参数。
dim bb as 参数类`=参数obj 或者 para
end sub

Answer 2

你要的是委托线程。
线程可以接受object[]参数。

追问

请问具体要怎么写？能给个示例么？

追答

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim th As New Threading.Thread(New System.Threading.ParameterizedThreadStart(AddressOf threadsub))
Dim th1 As New Threading.Thread(New System.Threading.ParameterizedThreadStart(AddressOf Invokesub))'如果要用的是控件的参数，需要委托。
th1.Start({20, TextBox2})
End Sub
Public Delegate Sub Dgsub(obj As Object)
Public Sub Invokesub(obj As Object)
Dim dg As New Dgsub(AddressOf threadsub)
Me.Invoke(dg, obj)
End Sub
Private Sub threadsub(obj As Object)
If obj.GetType.Name.EndsWith("[]") Then
'多参数
Dim arg As Object() = obj
If arg.Count = 2 Then '2个参数
End If
Else
'单参数
End If
End Sub

追问

只能传递object类型的数据吗？这样不就没法对每个元素的数据类型进行限制，以及对每个元素进行XML注释以便写代码时不会忘记某个元素是要干什么用的了么？
还有读obj里的东西必须先Dim arg As Object() = obj然后通过arg(0)这样读出来么？
这个Public Delegate Sub Dgsub是不是可以许多sub共用？写一个sub就加一个对应的Invokesub就好了？

追答

答第一、第二个疑问号
只能，但你可以重写ParameterizedThreadStart
答第三个疑问号
我只是便于你理解，此外好确定arg.count的个数，也就是能轻易知道有几个【参数】，不这样写当然也能确认。
最后一个
签名一致的sub都可以用。
————————
你可以去判断object的实际类型，类型不对立即报错。
————————
还可以把load过程写成过程/函数，那样你的参数就可以限制和注释了。
——————
再补充句，还可以把多个参数定义成类，那就只需要一个参数。

追问

我看网上说可以用th1.join()等待线程结束后再继续执行下面的代码，可是我用了之后一直没有继续执行，这是怎么回事，怎么解决呢？
还有如果在其他sub中要获得th1是否已经结束，该怎么写呢？

追答

可以在线程结束后返回一个值，
也可以判断线程的 th1.ThreadState
判断当前的状态。

追问

我发现th1.Start({20, TextBox2})的{}里面不可以写数字，写数字就弹错误说int32类型无法转换为object类型，这怎么办？

th1.ThreadState如果线程已执行完代码返回值是什么？

还有为什么th1.join()用不了呢（好像线程一直没有结束）？

在其他sub里没法引用th1，那么怎么判断th1状态？

追答

那上面是数字啊，测试通过的，任何类型都能转换object类型的。
执行完成，应该是stopped吧。
你把线程阻塞了，因此它什么都没干
全局变量直接用，局部变量用参数传进去

追问

字太多，就用图片了。。。。如果很难弄的话，那就算了

追答

200个,为什么要用200个？你究竟要做什么，一个就能满足需求吧？
200个，卡是完全可以理解并接受的。
先别管多线程，想办法优化，在必须要这么多panel的情况下，你改属性总不至于也要同时修改，在触发sub之下，设置相同的属性跳过，别再次赋值。
别用多线程，加句这个试试。
My.Application.DoEvents()

你还是留qq吧

追问

我是在做一个模拟炒股的游戏，有200个股票，就需要200个控件来显示它的数据信息（现价，波动，涨幅等等）而这些都是需要实时全部更新的，我设1s更新一次

加了那句卡顿是有非常明显缓解，但是也延长了更改控件属性的时间，后面几个控件的信息都基本上不怎么变化了，测出完成一次更新的时间有1s多，也就是说数据更新完要1s多后才会全部显示上去。。
我qq号和百度账号一样。不过用百度私信就可以了吧？

追答

已加qq
显示文字用listview可以吧，显示图像也应该不需要这么多，没试过用图表控件？