求教VB.net多線(xiàn)程問(wèn)題

多線(xiàn)程是用于處理復(fù)雜項(xiàng)目的

“只有客戶(hù)發(fā)展了，才有我們的生存與發(fā)展！”這是創(chuàng)新互聯(lián)的服務(wù)宗旨！把網(wǎng)站當(dāng)作互聯(lián)網(wǎng)產(chǎn)品，產(chǎn)品思維更注重全局思維、需求分析和迭代思維，在網(wǎng)站建設(shè)中就是為了建設(shè)一個(gè)不僅審美在線(xiàn)，而且實(shí)用性極高的網(wǎng)站。創(chuàng)新互聯(lián)對(duì)網(wǎng)站制作、做網(wǎng)站、網(wǎng)站制作、網(wǎng)站開(kāi)發(fā)、網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站優(yōu)化、網(wǎng)絡(luò)推廣、探索永無(wú)止境。

打個(gè)比方

你的主程序線(xiàn)程A中有個(gè)循環(huán)，由于代碼是一行行走的，所以循環(huán)結(jié)束前下面的代碼無(wú)法運(yùn)行，而此時(shí)主界面的反應(yīng)就類(lèi)似卡死的樣子，你點(diǎn)擊按鈕也沒(méi)有反應(yīng)，因?yàn)橹骶€(xiàn)程在忙著循環(huán)呢，所以對(duì)按鈕的事件代碼要等待了，如果要避免這種情況，就要用到多線(xiàn)程，另開(kāi)一個(gè)新線(xiàn)程專(zhuān)門(mén)用來(lái)執(zhí)行循環(huán)代碼，主界面就不會(huì)卡死了，只要在循環(huán)結(jié)束后將結(jié)果傳回主線(xiàn)程調(diào)用就可以了，再?gòu)?fù)雜點(diǎn)要涉及到委托，控制了

按你的要求其實(shí)你的代碼用不到多線(xiàn)程，只要把sleep放到兩段代碼中間就可以了。

新線(xiàn)程結(jié)束用thread.abort()

vb.net中開(kāi)一個(gè)線(xiàn)程，直到新窗體啟動(dòng)完成

雖然你的想法是在 LoginBtn_Click 事件中將復(fù)雜的操作分離出去以減輕UI的負(fù)擔(dān), 這很好完全沒(méi)有問(wèn)題.

但是問(wèn)題在于 Me.Invoke(dh)這里,若是ChkLogin里面仍然是大規(guī)模的操作呢 你的代碼就又變成將很復(fù)雜的操作扔給了UI, 當(dāng)然會(huì)出現(xiàn)窗體無(wú)法拖動(dòng)的情況了.

解決辦法很簡(jiǎn)單, 很多種. 將ChkLogin()里的操作直接放在DelegateLogin()里面吧 me.invoke僅僅只是做簡(jiǎn)單的輕量的刷新之類(lèi)的操作就好了.

希望能幫上你的忙.

vb.net如何判斷線(xiàn)程執(zhí)行完畢？

我給你一個(gè)簡(jiǎn)單的思路：

1，定義5個(gè)公共布爾變量，用來(lái)記錄5個(gè)線(xiàn)程的執(zhí)行情況

2，線(xiàn)程開(kāi)始變量賦值假，執(zhí)行完畢或者異常退出賦值真

3，一直用一個(gè)定時(shí)器掃描5個(gè)公共布爾變量----------隨時(shí)知道狀態(tài)

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

多線(xiàn)程一般是不推薦用的，因?yàn)榫€(xiàn)程之間如果有共享資源的話(huà)會(huì)引起競(jìng)爭(zhēng)，需要加鎖處理；而且線(xiàn)程間沒(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)題，采用了多線(xià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開(kāi)線(xiàn)程掃描的簡(jiǎn)單介紹
文章網(wǎng)址：http://jinyejixie.com/article36/hpdisg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、網(wǎng)站建設(shè)、App開(kāi)發(fā)、品牌網(wǎng)站設(shè)計(jì)、定制網(wǎng)站、網(wǎng)站改版

廣告

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