簡單回答：
我們提供的服務(wù)有：網(wǎng)站制作、成都做網(wǎng)站、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、始興ssl等。為1000多家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的始興網(wǎng)站制作公司
1、當(dāng)前來說，編程與運(yùn)行環(huán)境合適的情況下，VB.net與VB都有實(shí)現(xiàn)多線程的可能。
2、VB、VB.net的最基本的概念，是調(diào)用系統(tǒng)的接口進(jìn)行編程，只要系統(tǒng)提供“多線程”的功能調(diào)用，它們就能實(shí)現(xiàn)多線程。
3、VB注意于面向用戶，面向任務(wù)，其高級的一些程序?qū)崿F(xiàn)需要直接調(diào)用win的API，VB實(shí)現(xiàn)多線程的例子也可以在網(wǎng)絡(luò)上搜索到。
一、關(guān)于VB、VB.net的相關(guān)知識：
1、編程指的是用人類能理解的語言來編寫指令集，并通過專用的編譯軟件或環(huán)境來轉(zhuǎn)化這些指令，使得這些指令能讓計(jì)算機(jī)識別，從而控制計(jì)算機(jī)做人類需要進(jìn)行的工作。
2、也就是說無論是VB.NET還是VB它們都只是“人類能理解的語言”，它們通過專用的編譯軟件或環(huán)境來轉(zhuǎn)化這些指令，進(jìn)而操作電腦。
3、進(jìn)一步特化到VB上去說。VB基于VB的運(yùn)行庫，它的運(yùn)行庫又基于win的API（（Application Programming Interface,應(yīng)用程序編程接口）是一些預(yù)先定義的函數(shù)），也就是說，VB的很多（多到90%以上）的功能是直接基于調(diào)用windows提供的一些基本接口函數(shù)。
4、VB.net有什么不同呢，它基于.net運(yùn)行庫。什么 意思？這個(gè)意思就是，微軟發(fā)現(xiàn)win的API不夠用了，不好用了，就打算在windows上加裝點(diǎn)東西，讓它有更多的接口函數(shù)。但要注意的是，多數(shù)情況下，這些接口比win的API的效率要低一些。在win7及以后的版本的win中，已經(jīng)自含了.net運(yùn)行庫。
5、順便說，為什么很多人會發(fā)現(xiàn)win7的運(yùn)行速度看起來要比xp慢呢，個(gè)人認(rèn)為就是因?yàn)檎{(diào)用的是.net的接口來實(shí)現(xiàn)的，.net就是比API的慢。當(dāng)然了，.net的功能上要比xp原有的API的功能強(qiáng)。
6、VB與VB.net在語法上是非常近似的，只是因?yàn)閂isual Studio的版本不同，后期的Visual Studio已不提供簡純的VB了，注意它們的不同主要是后臺核心調(diào)用的理念上的不同。
委托，Delegate
就是讓你處于這個(gè)線程里時(shí)，委托另一個(gè)線程去執(zhí)行一些動(dòng)作
我簡單舉一個(gè)寫richtextbox的例子：
////////////////////////////////////////////
'創(chuàng)建一個(gè)名為 MySubDelegate 的委托。
Delegate Sub MySubDelegate(ByVal txt As String)
'寫信息到富文本主窗口
Private Sub txtW(ByVal txt As String)
Dim msgd As New MySubDelegate(AddressOf Me.txtW1)
Dim arg(0) As Object
arg(0) = txt
Me.Invoke(msgd, arg)
End Sub
'委托指向
Private Sub txtW1(ByVal txt As String)
Me.RichTextBox1.AppendText(txt)
End Sub
/////////////////////
這樣，你在多線程應(yīng)用時(shí)，在其他線程里用txtW(str)來寫richtextbox，就不會產(chǎn)生錯(cuò)誤了。不然，直接垮線程寫richtextbox，可能會出現(xiàn)和UI線程的沖突。
其實(shí)最簡單的方法是設(shè)置一個(gè)全局的變量，然后加一個(gè)timer，不停顯示最新的變量值
多線程一般是不推薦用的，因?yàn)榫€程之間如果有共享資源的話會引起競爭，需要加鎖處理；而且線程間沒有時(shí)序關(guān)系，所以你在調(diào)試中可能會出現(xiàn)異步處理結(jié)束順序與開始處理順序不一致的情況（我在調(diào)試中已經(jīng)發(fā)現(xiàn)該問題）。
針對你提出的這個(gè)問題，采用了多線程處理，利用的是BackgroundWorker也就是異步處理控件進(jìn)行了處理。
代碼已經(jīng)經(jīng)過調(diào)試通過。歡迎交流，如有問題，留下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
重慶分公司
重慶分公司
