VB.Net 如何將某個Sub單獨在新的線程中運行

dim td1 as Thread=New Thread(New ParameterizedThreadStart(sub名稱),

10年積累的網站設計制作、成都網站設計經驗，可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你，你也不認識我。但先建設網站后付款的網站建設流程，更有尖扎免費網站建設讓你可以放心的選擇與我們合作。

td.Start(參數(shù)obj)

參數(shù)obj ,如果比較多，最好封裝到一個類中，然后，到線程中，在強制轉為你的類。

sub CountProbability(para as object) //沒試過能不能直接寫參數(shù)。

dim bb as 參數(shù)類`=參數(shù)obj 或者 para

end sub

關于VB.NET中多線程和委托界面假死無響應的問題

并沒有看出什么地方可能導致程序假死,這排版也太亂了.不妨調試一下程序,當出現(xiàn)你說的"假死"后暫停一下程序,看看線程都卡在哪里.

另外,從設計上來看,你這里并不需要多線程操作.

vb.net 多線程與timer的問題

可能原因：timer不是由當前線程創(chuàng)建的。

解決方案：在線程中實例化一個timer，然后觸發(fā)，可以去試一下；或者通過委托，調用timer。

先不用線程試一下吧。

vb.net 中的異步委托機制，最好有相關的詳細資料講解，我是新手

所謂的委托（Delegate）實際上就是和C/C++里面的函數(shù)指針差不多，只是增強了類型檢查等其它健壯性方面的內容。異步調用的回調函數(shù)有格式要求，所謂格式要求就是參數(shù)數(shù)量及類型順序的要求，具體是什么樣的你要看文檔了。一般.NET Framework里面都是AsyncCallBack。

所謂異步編程，就是說你要求做某樣事情，但是在完成這件事之前，我能接著做下一件事，而當這件事情完成之后，能夠有一種機制通知我完成了。相反，在完成之前一直等待，直到完成了才能進行下一步操作，叫做同步。一般來說，我們平常寫的程序都是“同步”，或者成為“順序執(zhí)行”更加貼切，而“異步”則可以說是“亂序執(zhí)行”的。

可以看到，同步的代碼非常好寫，因為我們可以預測執(zhí)行的順序和情況。而異步就不是很好寫了，因為無法得知完成的時候我正在做什么、做到什么程度。過去寫這些代碼是比較麻煩的，實現(xiàn)的辦法就是自己建立一個處理異步事物的線程，然后在這個線程和主線程之間建立聯(lián)系。而現(xiàn)在這個過程大部分已經被系統(tǒng)封裝起來了，你只要調用BeginXXX，系統(tǒng)就會為你自動建立一個新的線程處理這個事情，當前線程不阻塞，可以馬上進行下一項操作，于是就實現(xiàn)了“異步”了。但是從前面我講道的你就應該知道，開始異步操作并沒有完事，還需要能夠得知操作完成，并能夠進行相應的處理。于是你在調用BeginXXX的時候就需要傳遞一個回調函數(shù)，在.NET里是以委托的方式傳遞的?；卣{函數(shù)的意思就是“回過頭來調用你”，或者說A調用B并且傳遞函數(shù)C的地址，于是B在指定的情況下調用A指定的函數(shù)C。現(xiàn)在就應該明白這個回調函數(shù)在BeginXXX中的作用就是，當你指定的事情做完之后將會調用這個回調函數(shù)。

在這個回調函數(shù)里面，我們就可以進行一些后續(xù)的工作，例如接著進行性質相同的工作，或者相應的處理。在這里，我們也許向知道剛才那件事情執(zhí)行的情況和結果，這個時候我們就可以通過EndXXX來獲得這些東西。說到這里，結合上面說到的AsyncCallBack以及隨便哪個BeginXXX，我們可能會對下列兩個東西感到困惑：

IAsyncResult

stateObject

首先說IAsyncResult，這個是一個接口，你在回調函數(shù)中通過參數(shù)獲得的對象具體是什么類型的一般我們不需要關心，我們只需要依照這個接口的定義進行訪問就可以了。簡單點說，這個接口規(guī)定了順利完成異步操作所需信息的最小集合。一般來說，我們需要通過這個參數(shù)（ar）來識別異步操作。比如說，你在一瞬間發(fā)起一百個“從不同的網絡連接獲取數(shù)據”的異步請求，當某一個請求被完成的時候，如何判斷是那個請求被完成呢？就是依靠回調函數(shù)的參數(shù)ar。實際上你一般是不需要參與判斷的，你只要將這個ar傳遞給EndXXX就可以了，EndXXX會根據這個ar自行判斷的。需要注意的是，這個ar就是你調用BeginXXX的時候的返回值，可以說是一個存根，如果你需要在完成操作前終止他，也可以通過將這個存根傳遞給EndXXX，EndXXX就會根據情況終止操作。（IAsyncResult里面的IsCompleted提供了是否已經完成的判斷，EndXXX就是根據這個值決定是否有必要終止。當然，你不需要關心他。）

接下來我們看看stateObject，這個東西被稱為狀態(tài)對象。于是大家就可能奇怪了：那個ar不也是狀態(tài)嗎？實際上stateObject是一個留給用戶使用的東西，BeginXXX/EndXXX根本就不使用。這個stateObject會被裝到ar的AsyncState里面，也就是說這個stateObject可以隨時通過訪問存根（BeginXXX的返回值）或者回調函數(shù)里的ar得到，你完全沒必要額外的保存到什么地方，更不需要費神的去考慮如何和你的某個異步操作對應起來。說了半天，這個東西有什么用呢？你想怎么用就怎么用唄，發(fā)揮一下你的想象力。比如說，你可以保存這是第幾次操作，或者在多個異步操作之間要同步的時候可以作為信號旗，再或者直接是操作這個異步操作的對象（x.BeginXXX的時候將x傳遞到stateObject參數(shù)上）。

第一種用法有點多余，第二種用法有點復雜，第三種我用得最多。因為你很可能在協(xié)一個服務端，而服務段必須能夠響應多個客戶端，這決定了必須用異步。同時，對于多個客戶端必然有多個對象，例如網絡連接的時候可能是Socket。而實際上處理的方法或者協(xié)議是和具體哪個客戶端沒有關聯(lián)的，因此我們只需要一套處理程序就夠了。這個時候第三種用法就很有用處，我們完全可以把代碼寫成這樣：

Sub DataReceived(ByVal ar As IAsyncResult)

ar.AsyncState.EndReceive(ar)

ar.AsyncState.BeginReceive(... , ar.AsyncState)

End Sub

這樣就不需要額外的數(shù)據結構去記錄有那些正在活動的對象了。

關于vb.net中實現(xiàn)委托的一個問題

把UI對象當做參數(shù)傳入 比如 Sub a(Form As Form1)

之后再用Form.Invoke(你的委托,參數(shù)) 就可以即時修改Form中的內容了

VB.net可以多線程控制同一個窗體及其控件嗎

不可以，但是能夠在主線程的基礎上調用委托（Invoke）。（主線程會被占用）

例子：

Dim thr As Threading.Thread

Public Delegate Sub VoidDelegate()

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

thr = New Threading.Thread(AddressOf Where)

thr.Start()

End Sub

Public Sub Where()

Me.BeginInvoke(New VoidDelegate(AddressOf WhereThr))

End Sub

Public Sub WhereThr()

Me.TextBox.text="0123456789"

End Sub

(Invoke)這種情況下，主線程被占用，所有由主線程執(zhí)行程序，都將被（wherethr函數(shù)執(zhí)行結束）后執(zhí)行。