多線程問題

Question

嗨我有一個應用程序，我做了，我試圖通過運行多線程到目前爲止，我已經做到了這一點。

Public Class mainfrm 
    Dim x As System.Threading.ThreadStart 
    Public Function RunThreads(count As Integer, start As ThreadStart) As List(Of Thread) 
     Dim list As New List(Of Thread) 
     For i = 0 To count - 1 
      Dim thread = New Thread(start) 
      thread.Start() 
      list.Add(thread) 
     Next 
     Return list 
    End Function 


Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click 
    RunThreads(10, x) 

但是當我點擊它給了我一個錯誤

Answer 1

看你的代碼鍵，X不是實例。

正確的指令來創建你的X是：

Private x As System.Threading.ThreadStart = New System.Threading.ThreadStart(SubToRun) 

調用已在你的線程運行子，你可以使用此代碼。

Private x As New System.Threading.ThreadStart(SubToRun) 'Shortened version of above statement 
Public Function RunThreads(count As Integer, start As ThreadStart) As List(Of Thread) 
    Dim list As New List(Of Thread)() 
    For i As Integer = 0 To count - 1 
     Dim thread As dynamic = New Thread(start) 
     thread.Start() 
     list.Add(thread) 
    Next 
    Return list 
End Function 


Private Sub Button1_Click_1(sender As Object, e As EventArgs) 
    RunThreads(10, x) 
End Sub 

Private Shared Sub SubToRun() 
    'DoTasks; 
End Sub 

Answer 2

你會更好地處理任務和任務工廠。

http://msdn.microsoft.com/en-us/library/dd537613(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

Imports System.Threading.Tasks 

Dim task1 As Integer() = Task(Of Integer()).Factory.StartNew(
    Function() 
     Dim IntArray(10) As Integer 
     For i As Integer = 1 To 10 
      IntArray(i) = i 
     Next 
     Return IntArray 
    End Function 
).Result 

For Each i As Integer In task1 
    Console.WriteLine(task1(i).ToString) 
Next 

Console.ReadLine() 

確保有一個原因，在不同的線程的處理事情，雖然，上面的例子就是這樣，會有使用線程這樣的事情沒有意義的，但如果你想運行一個任務並且不鎖定用戶界面，那麼這將很好地利用線程。

另外值得注意的是，從任務獲取結果將鎖定調用線程，直到它完成。