vb 怎么實現多線程

很簡單，調用API函數CreateThread

我們提供的服務有：成都做網站、網站設計、微信公眾號開發、網站優化、網站認證、雁山ssl等。為1000多家企事業單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的雁山網站制作公司

但是用vb做多線程的關鍵不在于創建，而是在于線程的不穩定，其不穩定是由于vb6自身的控件（如按鈕、文本框等）不是線程安全的，怎么用你程序就可能怎么掛，所以這些個玩樣兒在多線程中統統不能用。

那么UI的實現也得用API實現。這樣vb的多線程才相對要穩定。但是vb的可視化開發的優勢又蕩然無存。

VB.NET 多線程簡化步驟問題

過程只需要1個，線程你要多少就需要創建多少，這個可以用循環來創建：

Dim Thd(99) As Thread

For i As Integer =0 to 99

Thd(i)=New Thread(AddressOf Start)

Thd(i).Start()

Next

如果你不需要保留這些線程的引用

那個數組也可以省略掉

直接在循環中(New Thread(AddressOf Start)).Start()就行了

---------------------------------------------------------------------------

代碼不是在IDE中打的，可能有細微小錯誤

VB.NET中如何創建多個任務（每個任務一個線程），窗體上有一個listview

多線程操控同一個空間容易出現混亂，可通過SyncLock語句，將對空間的操作添加至lock語句內部，

Class?simpleMessageList

Public?messagesList()?As?String?=?New?String(50)?{}

Public?messagesLast?As?Integer?=?-1

Private?messagesLock?As?New?Object

Public?Sub?addAnotherMessage(ByVal?newMessage?As?String)

SyncLock?messagesLock

messagesLast?+=?1

If?messagesLast??messagesList.Length?Then

messagesList(messagesLast)?=?newMessage

End?If

End?SyncLock

End?Sub

End?Class

參考：

vb.net 怎么新建線程

Private Sub setA()

msgbox("")

End Sub

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

Dim t1 As Threading.Thread = New Threading.Thread(AddressOf setA)

t1.start

End Sub

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.net快速創建線程 VC創建線程
鏈接分享：http://www.yijiale78.com/article40/hhsoho.html

成都網站建設公司_創新互聯，為您提供網站維護、做網站、建站公司、域名注冊、響應式網站、企業建站

廣告

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