Sub Main()
十余年的裕安網站建設經驗,針對設計、前端、開發、售后、文案、推廣等六對一服務,響應快,48小時及時工作處理。全網整合營銷推廣的優勢是能夠根據用戶設備顯示端的尺寸不同,自動調整裕安建站的顯示方式,使網站能夠適用不同顯示終端,在瀏覽器中調整網站的寬度,無論在任何一種瀏覽器上瀏覽網站,都能展現優雅布局與設計,從而大程度地提升瀏覽體驗。創新互聯公司從事“裕安網站設計”,“裕安網站推廣”以來,每個客戶項目都認真落實執行。
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
多線程并不一定就可以縮短時間,具體要看你上面的“過程”是否調用數據庫完成。如果調用了數據庫,可以考慮用存儲過程替代“過程”。另外看看“過程”里是否反復打開和關閉了數據庫連接,如果是,這才是真正的耗時動作。如果沒調用數據庫,可以考慮使用Parallel類(.net4以后)里面的函數,使多個任務在多核CPU上并行運行,縮短時間。
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
文章題目:vb.net多線程,vbnet多線程同步異步
URL鏈接:http://m.kartarina.com/article18/hdohgp.html
成都網站建設公司_創新互聯,為您提供靜態網站、、搜索引擎優化、服務器托管、網站改版、網站設計公司
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯