從線程實例化對象中調用委託

Question

有誰知道如何從在線程中運行的實例化類調用主Form表單上的函數？

Public Class Test 
    Public Sub Temp() 
     Try 
      'Operations here 
     Catch ex as Exception 
      Form1.Invoke(New Form1.LogMessageDelegate(AddressOf frmIP.LogMessage), "Error Message To Be Outputted to TextBox on Main Form") 
     End Try 
    End Sub 
End Class 

我會讓它在函數中返回一個字符串，但是如果有異常，我只調用文本框消息。 謝謝你的時間！

Answer 1

Public Class Test 
Public Event ErrorMessage(errStr As String) 
Public Sub Temp() 
    Try 
     'Operations here 
    Catch ex as Exception 
     RaisEvent ErrorMessage(ex.Message) 
    End Try 
End Sub 
End Class 

Public Class Form1 
    Private Sub form1_load() Handles Me.Load 
    Dim trd As New Thread(AddressOf RunTestClass) 
    trd.Start() 
    Ens Sub 

    Private Sub RunTestClass() 
    Dim _test As New Test 
    Addhandler _test.ErrorMessage, AddressOf Test_ErrorMessage 
    _test.Temp() 
    End Sub 

    Private Sub Test_ErrorMessage(errStr As String) 
    Me.Invoke(Sub() 
       'run code here for UI thread 
       End Sub) 
    End Sub 
End Class