Vb.net 怎樣操作有參數(shù)的多線程而且還是循環(huán)的。

Sub?Main()

海原ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書未來(lái)市場(chǎng)廣闊！成為創(chuàng)新互聯(lián)建站的ssl證書銷售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：028-86922220（備注：SSL證書合作）期待與您的合作！

Dim?thr?As?New?Thread(AddressOf?循環(huán))

thr.Start("a")

End?Sub

Sub?循環(huán)(a()?As?String)

'這里隨你干什么循環(huán)也行

For?Each?i?As?String?In?a

MsgBox(i)

Next

End?Sub

看懂了吧 參數(shù)只能有一個(gè) 也可以不是數(shù)組，在a() As String的a后面去掉括號(hào)就行

VB.NET 多線程簡(jiǎn)化步驟問(wèn)題

過(guò)程只需要1個(gè)，線程你要多少就需要?jiǎng)?chuàng)建多少，這個(gè)可以用循環(huán)來(lái)創(chuàng)建：

Dim Thd(99) As Thread

For i As Integer =0 to 99

Thd(i)=New Thread(AddressOf Start)

Thd(i).Start()

Next

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

那個(gè)數(shù)組也可以省略掉

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

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

代碼不是在IDE中打的，可能有細(xì)微小錯(cuò)誤

求助一下vb.net調(diào)用大漠插件并且多線程

你這個(gè)是操作多個(gè)窗口還是操作單個(gè)窗口

單個(gè)窗口的話，沒(méi)必要?jiǎng)?chuàng)建多個(gè)對(duì)象，1個(gè)就夠了。

如果特殊情況下需要?jiǎng)?chuàng)建多個(gè)大漠插件的對(duì)象，承載對(duì)象的變量可設(shè)置成數(shù)組型，或者可更換成模塊去創(chuàng)建多個(gè)對(duì)象

我以前用過(guò)：如圖，這個(gè)模塊可以實(shí)現(xiàn)，需要的話精益論壇上有? 搜索下

代碼的寫法如下：

1、先創(chuàng)建個(gè)全局變量的對(duì)象數(shù)組

2、如下

VB.NET 簡(jiǎn)單多線程

多線程一般是不推薦用的，因?yàn)榫€程之間如果有共享資源的話會(huì)引起競(jìng)爭(zhēng)，需要加鎖處理；而且線程間沒(méi)有時(shí)序關(guān)系，所以你在調(diào)試中可能會(huì)出現(xiàn)異步處理結(jié)束順序與開(kāi)始處理順序不一致的情況（我在調(diào)試中已經(jīng)發(fā)現(xiàn)該問(wèn)題）。

針對(duì)你提出的這個(gè)問(wèn)題，采用了多線程處理，利用的是BackgroundWorker也就是異步處理控件進(jìn)行了處理。

代碼已經(jīng)經(jīng)過(guò)調(diào)試通過(guò)。歡迎交流，如有問(wèn)題，留下QQ或其他聯(lián)系方式。

代碼如下，并附程序截圖。

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

Imports?System.ComponentModel?'導(dǎo)入異步控件命名空間

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多線程數(shù)組 vbnet timer多線程
網(wǎng)址分享：http://chinadenli.net/article2/hijgic.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、定制開(kāi)發(fā)、網(wǎng)站內(nèi)鏈、做網(wǎng)站、全網(wǎng)營(yíng)銷推廣、電子商務(wù)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)