16,721
社区成员
发帖
与我相关
我的任务
分享我起动了一个线程，另一个sub中如何结束？
我起动了一个线程
sub main()
Dim t1 As Threading.Thread
t1 = New Threading.Thread(AddressOf HTMain1)
t1.IsBackground = True
t1.Start()
end sub
我用timer来检查这个线程是否超时，如在超时，我就把它停止，这段代码我要如何写
Sub TimerMain_Tick()
'????????如何写
end sub
sub main()
Dim t1 As Threading.Thread
t1 = New Threading.Thread(AddressOf HTMain1)
t1.IsBackground = True
t1.Start()
end sub
我用timer来检查这个线程是否超时，如在超时，我就把它停止，这段代码我要如何写
Sub TimerMain_Tick()
'????????如何写
end sub
...全文
请发表友善的回复…
发表回复
捏造的信仰 2004-12-23
- 打赏
- 举报
将线程的定义放到外面去。这样就可以在两个过程中使用了。
yes4pierce 2004-12-22
- 打赏
- 举报
TimeSpan span=SomeTime-DateTime.Now;
if(span.TotalSeconds>10)
{
t1.Abort();
t1.Join(2000);
}
if(span.TotalSeconds>10)
{
t1.Abort();
t1.Join(2000);
}
