十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Sub bc()
成都创新互联-专业网站定制、快速模板网站建设、高性价比西工网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式西工网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖西工地区。费用合理售后完善,十载实体公司更值得信赖。
Dim cs As New qq163(AddressOf js)
Application.DoEvnts
Invoke(cs)
End Sub
感觉问题出在
Form2.Show() '启动倒计时显示窗口
这一句上。
这一句应该只需要执行一次就行了。
把它放在timer中,多次调用,造成假死。
同学。。你这里的写法其实根本没有用到多线程
原因很简单
你是定义了一个T的新线程,但是很可惜你在BeginDoSub这个独立的线程中又定义了一个deSomeSub的委托,并且直接用Me.Invoke把实际的执行任务提交给界面主线程运行了
所以你的图片的处理函数实际上是在主线程中运行的,新线程等于没用
正确的作法是,T定义为SomeSub这个函数为入口的线程,并启动它
在界面进度条更改的时候再使用Invoke来调用委托来进行界面更改。
自己再好好看看吧,时间问题我要走了。