16,549
社区成员
发帖
与我相关
我的任务
分享
Public Sub Test()
Dim t As New Thread(AddressOf abc)
t.Start()
End Sub
Public Sub abc()
End Sub
或者使用匿名委托方式Public Sub Test()
Dim t As New Thread(Sub()
Dim m = 1 + 2
abc(m, "asdfasd")
End Sub)
t.Start()
End Sub
Public Sub abc(x As Integer, y As String)
End Sub
不过通常我不回去使用 Thread。因为通常我开发服务器端,高并发,因此习惯于使用系统线程池来管理和分配线程,而不是无限制地创建 Thread 对象。所以写为Public Sub Test()
ThreadPool.QueueUserWorkItem(Sub()
Dim x As String = DateTime.Now.ToString("yy-MM-dd")
abc(12, x)
End Sub)
End Sub
Public Sub abc(x As Integer, y As String)
End Sub
使用系统线程池来分配线程,而不是自己创建 Thread 对象!