Sub bc()
創(chuàng)新互聯(lián)公司是一家網(wǎng)站設計公司,集創(chuàng)意、互聯(lián)網(wǎng)應用、軟件技術為一體的創(chuàng)意網(wǎng)站建設服務商,主營產(chǎn)品:響應式網(wǎng)站設計、成都品牌網(wǎng)站建設、成都全網(wǎng)營銷推廣。我們專注企業(yè)品牌在網(wǎng)站中的整體樹立,網(wǎng)絡互動的體驗,以及在手機等移動端的優(yōu)質呈現(xiàn)。成都網(wǎng)站建設、網(wǎng)站建設、移動互聯(lián)產(chǎn)品、網(wǎng)絡運營、VI設計、云產(chǎn)品.運維為核心業(yè)務。為用戶提供一站式解決方案,我們深知市場的競爭激烈,認真對待每位客戶,為客戶提供賞析悅目的作品,網(wǎng)站的價值服務。
Dim cs As New qq163(AddressOf js)
Application.DoEvnts
Invoke(cs)
End Sub
同學。。你這里的寫法其實根本沒有用到多線程
原因很簡單
你是定義了一個T的新線程,但是很可惜你在BeginDoSub這個獨立的線程中又定義了一個deSomeSub的委托,并且直接用Me.Invoke把實際的執(zhí)行任務提交給界面主線程運行了
所以你的圖片的處理函數(shù)實際上是在主線程中運行的,新線程等于沒用
正確的作法是,T定義為SomeSub這個函數(shù)為入口的線程,并啟動它
在界面進度條更改的時候再使用Invoke來調用委托來進行界面更改。
自己再好好看看吧,時間問題我要走了。
感覺問題出在
Form2.Show() '啟動倒計時顯示窗口
這一句上。
這一句應該只需要執(zhí)行一次就行了。
把它放在timer中,多次調用,造成假死。
并沒有看出什么地方可能導致程序假死,這排版也太亂了.不妨調試一下程序,當出現(xiàn)你說的"假死"后暫停一下程序,看看線程都卡在哪里.
另外,從設計上來看,你這里并不需要多線程操作.