VB點虐 如何設計多線程運行

Sub Main()

創新互聯公司長期為上千余家客戶提供的網站建設服務，團隊從業經驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯網生態環境。為洛南企業提供專業的網站設計、成都網站建設，洛南網站改版等技術服務。擁有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

紅糖暖胃____關于控制VB.NET的多線程thead拋出的線程數量的問題.__冰天雪地裸體騰空360°跪玻璃渣問

我告訴你思路，你自己去實現。

建議你用“守護線程”的方式去做，這樣做對于你一個小任務來說更合適。首先，你要建立一個隊列，將所有下載任務放入隊列。注意，這個隊列必須是“線程安全”的，即兩個線程不會搶到同一個任務。然后只開10個線程。這些線程會從隊列中讀取任務。當一個線程不能再從隊列中讀取任務時，也就是隊列為空時，退出。等所有線程都退出后，你的程序就結束了。

還有一種方法，叫“線程池”，也就是你說的納蘆御方洞巖法，稍微復雜一點嘩棗：

指定一個變量，用來表示線程的數量。剛開始為0，每開一個線程+1。當一個線程完成任務退出后，這個變量-1。直到所有任務都完成后，不再產生新線程。

vb點虐 里如何設置多線程?

首先，你把你陵猜那些要運行很久的過程。盡量放在一個過程中。

因為線程只能是過氏滑程，不能使函數，沒有返回值的。

然后，在某個事件下這樣寫：

**這里我假設你的那個很就的過程叫做 sub aaa()

調用如下：

Dim mythread As New System.Threading.Thread(AddressOf aaa)

mythread.Start()

***********

這樣就是定義一個線程，名字叫 mythread，尺核型這個線程會運行aaa這個過程。

start 就是讓線程運行。

VB.NET 簡單多線程

多線程一般是不推薦用的，因為線程之間如果有共享資源的話會引起競爭，需要加鎖處理；而且線程間沒有時序關系，所以你在調試中可能會出現異步處理結束順序與開始處理順序不一致的情況（我在調試中已經發現該問題）。

針對你提出的這個問題，采用了多線程處理，利用的是BackgroundWorker也就是異步處理控件進行了處理。

代碼已經經過調試通過。歡迎交流，如有問題，留下QQ或其他聯系方式。

代碼如褲毀下，并附程序截圖冊胡。

‘---------------------------------------------------

Imports?System.ComponentModel?'導入異步控件命名空間

Public?Class?Form1

Private?howmany?As?Integer?=?10

Private?AnalysisNumber(0?To?howmany?-?1)?As?BackgroundWorker

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

ListBox1.Items.Clear()

creatNewBackgroundWorker()

addHandle()

startWork()

End?Sub

Private?Sub?creatNewBackgroundWorker()

For?i?As?Integer?=?0?To?AnalysisNumber.Length?-?1

AnalysisNumber(i)?=?New?BackgroundWorker

Next

End?Sub

Private?Sub?addHandle()

For?i?As?Integer?=?0?To?AnalysisNumber.Length?-?1

AddHandler?AnalysisNumber(i).DoWork,?AddressOf?AnalysisNumber_DoWork

AddHandler?AnalysisNumber(i).RunWorkerCompleted,?AddressOf?AnalysisNumber_RunWorkerCompleted

Next

End?Sub

Private?Sub?startWork()

For?i?As?Integer?=?0?To?9

Dim?temp(0?To?9)?As?Integer

For?j?As?Integer?=?1?To?10

temp(j?-?1)?=?10?*?i?+?j

Next

AnalysisNumber(i).RunWorkerAsync(temp)

Next

End?Sub

Private?Sub?AnalysisNumber_DoWork(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.DoWorkEventArgs)

Dim?data?As?Integer()

data?=?CType(e.Argument,?Integer())

Dim?temp?As?Integer

For?i?As?Integer?=?0?To?data.Length?州純攔-?1

temp?=?data(i)

data(i)?=?temp?*?temp

Next

e.Result?=?data

End?Sub

Private?Sub?AnalysisNumber_RunWorkerCompleted(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.RunWorkerCompletedEventArgs)

Dim?data?As?Integer()

data?=?CType(e.Result,?Integer())

For?i?As?Integer?=?0?To?data.Length?-?1

ListBox1.Items.Add(data(i))

Next

End?Sub

End?Class

本文題目：vb點虐 線程數 vb創建線程的實例
標題路徑：http://vcdvsql.cn/article8/ddpshop.html

成都網站建設公司_創新互聯，為您提供域名注冊、品牌網站建設、定制開發、用戶體驗、網站內鏈、網站導航

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯