緒子送價值

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（對象）更新的代碼超載將數據傳遞到您的處理子。

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