Sub Main()
成都創新互聯公司-專業網站定制、快速模板網站建設、高性價比瀘水網站開發、企業建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式瀘水網站制作公司更省心,省錢,快速模板網站建設找我們,業務覆蓋瀘水地區。費用合理售后完善,10多年實體公司更值得信賴。
Dim thr As Thread
For Pi As Integer=0 To 4 //啟用5線程
MulParams =Pi vbTab sFile vbTab dFile vbTab 1 vbTab DelN vbTab cr vbTab cg vbTab cb vbTab IndexI
GlobalParamas(pi)=MulParams .Split(vbTab)
thr=New Thread(AddressOf MyMulThreadCaller)
thr.Start() //啟動多線程進程
Application.DoEvents
Next
End Sub
Sub Main() Dim thr As New Thread(AddressOf 循環) thr.Start("a") End Sub Sub 循環(a() As String) '這里隨你干什么循環也行 For Each i As String In a MsgBox(i) Next End Sub
多線程是用于處理復雜項目的
打個比方
你的主程序線程A中有個循環,由于代碼是一行行走的,所以循環結束前下面的代碼無法運行,而此時主界面的反應就類似卡死的樣子,你點擊按鈕也沒有反應,因為主線程在忙著循環呢,所以對按鈕的事件代碼要等待了,如果要避免這種情況,就要用到多線程,另開一個新線程專門用來執行循環代碼,主界面就不會卡死了,只要在循環結束后將結果傳回主線程調用就可以了,再復雜點要涉及到委托,控制了
按你的要求其實你的代碼用不到多線程,只要把sleep放到兩段代碼中間就可以了。
新線程結束用thread.abort()
標題名稱:關于vb.net阻塞式多線程的信息
文章出自:http://vcdvsql.cn/article48/doieehp.html
成都網站建設公司_創新互聯,為您提供虛擬主機、全網營銷推廣、軟件開發、域名注冊、自適應網站、企業建站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯