vb點虐 多線程如何返回參數(shù)，舉個例子，謝謝

Public?Class?Form1

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務(wù)項目有：域名注冊、網(wǎng)站空間、營銷軟件、網(wǎng)站建設(shè)、墨玉網(wǎng)站維護、網(wǎng)站推廣。

Public?Class?SquareClass?'把多線程調(diào)用的函數(shù)封裝到類中，通過類事件返回

Public?Value?As?Double

Public?Square?As?Double

Public?Event?ThreadComplete(ByVal?Square?As?Double)

Public?Sub?CalcSquare()

Square?=?Value?*?Value

RaiseEvent?ThreadComplete(Square)

End?Sub

End?Class

Dim?WithEvents?oSquare?As?SquareClass

Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click?'多線程返回值測試，當(dāng)線程運行完成激發(fā)事件

oSquare?=?New?SquareClass()

Dim?t?As?New?Threading.Thread(AddressOf?oSquare.CalcSquare)

oSquare.Value?=?30

t.Start()

End?Sub

Sub?SquareEventHandler(ByVal?Square?As?Double)?Handles?oSquare.ThreadComplete?'響應(yīng)事件函數(shù)

MsgBox("The?square?is?"??Square)

End?Sub

End?Class

VB點虐 如何設(shè)計多線程運行

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

Application.DoEvents

Next

End Sub

VB.NET中的多線程和委托是什么關(guān)系? 能不能給我一個通俗易懂的范例,謝謝

委托，Delegate

就是讓你處于這個線程里時，委托另一個線程去執(zhí)行一些動作

我簡單舉一個寫richtextbox的例子：

////////////////////////////////////////////

'創(chuàng)建一個名為 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)用時，在其他線程里用txtW(str)來寫richtextbox，就不會產(chǎn)生錯誤了。不然，直接垮線程寫richtextbox，可能會出現(xiàn)和UI線程的沖突。

同Java一樣簡單！VB.NET多線程開發(fā)實例

VB NET（Visual Basic NET）是為適應(yīng)Microsoft NET框架的需要 對Visual Basic進(jìn)行了重大改造后的開發(fā)工具 它比Visual Basic 功能更強大 更易于使用 其中最重要的變化就是對象繼承 在VB NET中 所有可管理的類型都衍生自System Object 作為編程工具 最重要的一個特性就是垃圾碎片的回收 它由CLR（Common Language Runtime）進(jìn)行控制 并提供更好的內(nèi)存管理功能 通用的類型定義可以提供更好的互操作性和協(xié)同工作能力 因此 VB NET顯得更強大 更具可靠性 在VB NET中 大多數(shù)CLR內(nèi)建的類型都在System名字空間里已經(jīng)定義了 比如 System Object System Int 和 System String 要注意的是 一個名字空間可能嵌在另一個名字空間內(nèi) 象System Data里就有System Data DataSet的類 代表是CLR編程模型很重要的一個新概念 代表是一個特殊類型的可管理的類 當(dāng)你創(chuàng)建一個代表的實例時 你必須提供一個帶有匹配簽名的方法執(zhí)行的地址 一旦創(chuàng)建了一個代表的實例 調(diào)用方法將變的很容易 過去 我們利用VB開發(fā)多線程的應(yīng)用程序時 是一件很令人痛苦的事 經(jīng)常是多線程的程序運行是會變成多錯誤的程序！但在VB NET中 這種狀況已經(jīng)大為改觀 現(xiàn)在 我們利用VB NET處理多線程和利用JAVA處理多線程一樣簡單了 下面我們就舉個例子 來看看VB NET的多線程吧！下面是多線程程序threadtest vb的代碼 imports Systemimports System Threadingpublic class AClasspublic sub Method ()Dim i as integerFor i = to Console Writeline( 這是類AClass方法method 的內(nèi)容 i)nextend subpublic sub Method ()Dim i as integerFor i = to Console Writeline( 這是類AClass方法method 的內(nèi)容 i)nextend subend classpublic class ThreadTestpublic shared sub Main()dim obj as new aclassdim th th as threadth =new Thread(new ThreadStart(addressof thod ))th startth =new Thread(new ThreadStart(addressof thod ))th startdim i as integerFor i= to Console WriteLine( Main方法里的內(nèi)容 i)Nextend subend class現(xiàn)在 來讓我們剖析一下上面的例子 我們創(chuàng)建了我們自己的類AClass 并創(chuàng)建了兩個方法 Method 和Method 這兩個方法很簡單 只有一個For循環(huán) 向輸出設(shè)備輸出一些信息 我們還定義了另外一個類ThreadTest來使用上面創(chuàng)建的類AClass 在Main()方法中 我們創(chuàng)建了類Thread的實例 類Thread可以在System Threading名字空間里得到 它定義了處理線程的屬性和方法 在類Thread的構(gòu)造器中 我們使用了類ThreadStart 類ThreadStart是一個代表 標(biāo)志著當(dāng)一個線程開始時就開始執(zhí)行定義的方法 為了執(zhí)行定義的方法 我們實際調(diào)用的是線程的Start()方法 用VBC來編譯上面的程序 vbc /out:threadtest exe threadtest vb 運行編譯后的程序 我們將會看到我們定義的兩個方法和main()方法的混合輸出 這就說明每一個方法都在自己的線程下運行 除了上面的方法 線程還有下面常用的方法 Stop():停止線程的運行 Suspend() 暫停線程的運行 Resume() 繼續(xù)線程的運行 Sleep() 停止線程一段時間（單位為毫秒） lishixinzhi/Article/program/net/201311/11287