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
在成都網站制作、成都做網站中從網站色彩、結構布局、欄目設置、關鍵詞群組等細微處著手,突出企業的產品/服務/品牌,幫助企業鎖定精準用戶,提高在線咨詢和轉化,使成都網站營銷成為有效果、有回報的無錫營銷推廣。創新互聯公司專業成都網站建設10多年了,客戶滿意度97.8%,歡迎成都創新互聯客戶聯系。
首先,你把你那些要運行很久的過程。盡量放在一個過程中。
因為線程只能是過程,不能使函數,沒有返回值的。
然后,在某個事件下這樣寫:
**這里我假設你的那個很就的過程叫做 sub aaa()
調用如下:
Dim mythread As New System.Threading.Thread(AddressOf aaa)
mythread.Start()
***********
這樣就是定義一個線程,名字叫 mythread,這個線程會運行aaa這個過程。
start 就是讓線程運行。
多個線程執行的時候,是按CPU時鐘輪番執行的,你可以在兩個SUB中增加一條輸出到即時窗口:debug.print test_time
看不出你的test1和test2做什么用的?
Sub Main()
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
本文名稱:vb點虐
多線程排程 vbnet timer多線程
當前鏈接:http://vcdvsql.cn/article36/ddeicpg.html
成都網站建設公司_創新互聯,為您提供品牌網站設計、網頁設計公司、標簽優化、自適應網站、面包屑導航、網站排名
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯