如何创建动态线程数？

Question

目前我通过以下方式创建线程（正常方式）

Public loginThread As Thread
Public loginThreadStart As New ThreadStart(AddressOf LogIntoWhatever)
Public callLoggedIn As New MethodInvoker(AddressOf loggedIn)

但是，我想要做的是类似的事情（这显然行不通，并且完全是伪代码）

dim i as integer = 0
for i = 0 to i = 25
Public loginThread(i) as Thread
Public loginThreadStart(i) as New ThreadStart(AddressOf LogIntoWhatever)
next i
Public callLoggedIn as new MethodInvoker(AddressOf loggedIn)

我可以将 25 更改为我想要的任何值并创建该数量的线程。他们都将运行一个相同的子程序，该子程序不会相互调用任何类型，他们不需要彼此了解。这样的事情可能吗？如果是这样，找到解决方案的方向会有所帮助。

提前致谢。

Answer 1

试试下面的

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

或者使用线程池

Public Sub RunThreads(count as Integer, callBack as WaitCallBack) 
  For i = 0 To count-1
    ThreadPool.QueueUserWorkItem(callBack)
  Next
End Sub