vb.net - 如何在VB中创建一个带有参数的函数的新线程AddressOf？

Question

When option strict is OFF, works fine. ON，我得到重载解析失败:

Dim _thread1 As Thread

Private Sub test2(boolTest As Boolean)
    ' Do something
End Sub
'
Private Sub test()
    _thread1 = New Thread(AddressOf test2)
    _thread1.Start(True)
End Sub

Overload resolution failed because no accessible 'New' can be called with these arguments:

'Public Sub New(start As System.Threading.ParameterizedThreadStart)': Option Strict On does not allow narrowing in implicit type conversions between method 'Private Sub test2(boolTest As Boolean)' and delegate 'Delegate Sub ParameterizedThreadingStart(obj As Object)'.

'Public Sub New(start As System.Threading.ThreadStart)': Method 'Private Sub test2(boolTest As boolean)' does not have a signature compatible with delegate 'Delegate Sub ThreadStart()'.

我是线程的新手……一个没有参数的函数似乎很好，但是有参数吗？艰难的。我怎样才能做到这一点？我已经搜索过，并且大多只看到 java/js 只回答了这个问题。

Answer 1

当你以这种方式启动一个线程时，你的函数必须有一个或更少的参数。如果指定一个参数，它必须来自类型 Object .

在您的函数中，您可以简单地将此对象参数转换为您的数据类型:

private sub startMe(byval param as Object)
     dim b as Boolean = CType(param, Boolean)
     ...
end sub

当你想传递多个参数时，你可以把它们放在一个类中，如下所示:

public class Parameters
     dim paramSTR as String
     dim paramINT as Integer
end class

private sub startMe(byval param as Object)
     dim p as Parameters = CType(param, Parameters)
     p.paramSTR = "foo"
     p.paramINT = 0
     ...
end sub

要开始您的主题:

dim t as new Thread(AddressOf startMe)
dim p as new Parameters
p.paramSTR = "bar"
p.oaramINT = 1337
t.start(p)