level 2
86sw
楼主
For jsc = 0 To 300
aac(jsc) = New Threading.Thread(AddressOf setA)
aac(jsc).Start()
Thread.Sleep(30)
Application.DoEvents()
Next
Sub setA()
我要是在 setA 光加 一个 Thread.Sleep(8000)
Sub setA()
Do While True
Thread.Sleep(8000)
Me.Invoke(New EventHandler(AddressOf UpdateText),lao)传送给界面
如果我在这是加些数据处理代码后 开300个线程 跑一会就死了，有时跑1000多次就死了
loop
End Sub
Public Sub UpdateText1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Label1.Text = " 线程开始" & sender.ToString
End Sub
请问这样的线程处理要怎么做 还请高手指点
2014年11月26日 11点11分
1
aac(jsc) = New Threading.Thread(AddressOf setA)
aac(jsc).Start()
Thread.Sleep(30)
Application.DoEvents()
Next
Sub setA()
我要是在 setA 光加 一个 Thread.Sleep(8000)
Sub setA()
Do While True
Thread.Sleep(8000)
Me.Invoke(New EventHandler(AddressOf UpdateText),lao)传送给界面
如果我在这是加些数据处理代码后 开300个线程 跑一会就死了，有时跑1000多次就死了
loop
End Sub
Public Sub UpdateText1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Label1.Text = " 线程开始" & sender.ToString
End Sub
请问这样的线程处理要怎么做 还请高手指点
