我起动了一个线程,另一个sub中如何结束?

seehack 2004-12-22 09:29:48
我起动了一个线程
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
...全文
134 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
捏造的信仰 2004-12-23
  • 打赏
  • 举报
回复
将线程的定义放到外面去。这样就可以在两个过程中使用了。
yes4pierce 2004-12-22
  • 打赏
  • 举报
回复
TimeSpan span=SomeTime-DateTime.Now;
if(span.TotalSeconds>10)
{
t1.Abort();
t1.Join(2000);
}

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧