vbnet線程消息,vbnet線程同步

運(yùn)行VS2013 的VB.NET程序時(shí)錯(cuò)誤（其他信息: 線程正在運(yùn)行或被終止；它無(wú)法重新啟動(dòng)。）怎么辦？

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

成都創(chuàng)新互聯(lián)專注于播州企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè),商城網(wǎng)站制作。播州網(wǎng)站建設(shè)公司,為播州等地區(qū)提供建站服務(wù)。全流程按需定制制作，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

For?s?=?1?To?11?Step?10

t1?=?New?Threading.Thread(AddressOf?setA)

t2?=?New?Threading.Thread(AddressOf?setB)

t3?=?New?Threading.Thread(AddressOf?setC)

t4?=?New?Threading.Thread(AddressOf?setD)

t5?=?New?Threading.Thread(AddressOf?setE)

t6?=?New?Threading.Thread(AddressOf?setF)

t7?=?New?Threading.Thread(AddressOf?setG)

t8?=?New?Threading.Thread(AddressOf?setH)

t9?=?New?Threading.Thread(AddressOf?setI)

t10?=?New?Threading.Thread(AddressOf?setJ)

錯(cuò)誤》》》???t1.Start()

t2.Start()

t3.Start()

t4.Start()

t5.Start()

t6.Start()

t7.Start()

t8.Start()

t9.Start()

t10.Start()

Next

同樓上，每個(gè)Thread只能運(yùn)行一次

求大神指導(dǎo)VB.net 線程 ThreadState 的使用方法 怎么獲取線程狀態(tài),是否被掛起堵塞停止等等

用time控件啊，獲取threadstate后，按指定時(shí)間間隔規(guī)定向界面刷新，線程必須是全局變量

用一個(gè)有退出條件的無(wú)限循環(huán)的sub也行。

線程開(kāi)始就觸發(fā)該過(guò)程，用無(wú)限循環(huán)來(lái)刷新?tīng)顟B(tài)，線程完成即退出無(wú)限循環(huán)。局部變量的線程也可以用這種方式。

不過(guò)用法要正確，否則會(huì)出問(wèn)題。

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

各們，請(qǐng)教怎么使用vb.net編寫(xiě)兩個(gè)進(jìn)程間消息

兩個(gè)方法

1.

要接收的窗口先使用FindWindow這個(gè)api獲得句柄

調(diào)用SetForegroundWindow使其獲得焦點(diǎn)并選中

調(diào)用.net方法：SendKeys.Send方法發(fā)送

2.使用API的SendInput

VB.net 如何設(shè)計(jì)多線程運(yùn)行

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() //啟動(dòng)多線程進(jìn)程

Application.DoEvents

Next

End Sub

新聞名稱：vbnet線程消息,vbnet線程同步
鏈接地址：http://m.kartarina.com/article48/hsdhhp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)網(wǎng)站制作、網(wǎng)站建設(shè)、網(wǎng)站導(dǎo)航、外貿(mào)網(wǎng)站建設(shè)、響應(yīng)式網(wǎng)站、網(wǎng)站營(yíng)銷(xiāo)

廣告

聲明：本網(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)