vb.net - 线程子发送值

Question

嘿，我有这个被称为：

Public Sub doStuff(ByVal what2Do As String)
   Dim command As String = ""

   If Trim(lanSent(1)) = "turnOffPC" Then
       command = "r5"
   ElseIf Trim(lanSent(1)) = "TurnOnPC" Then
       command = "r3"
   End If

   Dim t As New Threading.Thread(AddressOf androidWS)

   t.SetApartmentState(Threading.ApartmentState.STA)
   t.Start()
End Sub


Private Shared Sub androidWS(ByVal command As String)
    Dim arduinoWebSite As New WebBrowser

    arduinoWebSite.Navigate("http://192.168.9.39:19/?r=" & command)
End Sub

我想知道如何向 androidWS 发送值？

更新的代码有效

Public Sub doStuff(ByVal what2Do As String)
   Dim command As String = ""

   If Trim(lanSent(1)) = "turnOffPC" Then
       command = "r5"
   ElseIf Trim(lanSent(1)) = "TurnOnPC" Then
       command = "r3"
   End If

   Dim t As New Threading.Thread(AddressOf androidWS)

   t.SetApartmentState(Threading.ApartmentState.STA)
   t.Start(command)
End Sub


Private Shared Sub androidWS(ByVal command As Object)
    Dim arduinoWebSite As New WebBrowser

    arduinoWebSite.Navigate("http://192.168.9.39:19/?r=" & command)
End Sub

Answer 1

您使用 Thread.Start(Object) 重载将数据传递给您的处理程序子。

http://msdn.microsoft.com/en-us/library/6x4c42hc.aspx