求教VB.net多線程問題

多線程是用于處理復雜項目的

“只有客戶發展了，才有我們的生存與發展！”這是創新互聯的服務宗旨！把網站當作互聯網產品，產品思維更注重全局思維、需求分析和迭代思維，在網站建設中就是為了建設一個不僅審美在線，而且實用性極高的網站。創新互聯對網站制作、做網站、網站制作、網站開發、網頁設計、網站優化、網絡推廣、探索永無止境。

打個比方

你的主程序線程A中有個循環，由于代碼是一行行走的，所以循環結束前下面的代碼無法運行，而此時主界面的反應就類似卡死的樣子，你點擊按鈕也沒有反應，因為主線程在忙著循環呢，所以對按鈕的事件代碼要等待了，如果要避免這種情況，就要用到多線程，另開一個新線程專門用來執行循環代碼，主界面就不會卡死了，只要在循環結束后將結果傳回主線程調用就可以了，再復雜點要涉及到委托，控制了

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

新線程結束用thread.abort()

vb.net中開一個線程，直到新窗體啟動完成

雖然你的想法是在 LoginBtn_Click 事件中將復雜的操作分離出去以減輕UI的負擔, 這很好完全沒有問題.

但是問題在于 Me.Invoke(dh)這里,若是ChkLogin里面仍然是大規模的操作呢 你的代碼就又變成將很復雜的操作扔給了UI, 當然會出現窗體無法拖動的情況了.

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

希望能幫上你的忙.

vb.net如何判斷線程執行完畢？

我給你一個簡單的思路：

1，定義5個公共布爾變量，用來記錄5個線程的執行情況

2，線程開始變量賦值假，執行完畢或者異常退出賦值真

3，一直用一個定時器掃描5個公共布爾變量----------隨時知道狀態

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