大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
如果需要等待T2线程结束,那又何必开启这个线程!!
目前成都创新互联公司已为成百上千的企业提供了网站建设、域名、网络空间、网站托管维护、企业网站设计、达拉特网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
直接:
Label1.Visible = True
setB()
MsgBox("d")
这不就是执行完setB(),再执行MsgBox("d"),多线程是多余的。
多线程的作用大多数也就用来同时执行多任务而不用等待的。
我给你一个简单的思路:
1,定义5个公共布尔变量,用来记录5个线程的执行情况
2,线程开始变量赋值假,执行完毕或者异常退出赋值真
3,一直用一个定时器扫描5个公共布尔变量----------随时知道状态
使用api
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
用time控件啊,获取threadstate后,按指定时间间隔规定向界面刷新,线程必须是全局变量
用一个有退出条件的无限循环的sub也行。
线程开始就触发该过程,用无限循环来刷新状态,线程完成即退出无限循环。局部变量的线程也可以用这种方式。
不过用法要正确,否则会出问题。