Question

vb.net多线程如何返回参数，举个例子，谢谢

Answer 1

Public Class Form1
    Public Class SquareClass '把多线程调用的函数封装到类中，通过类事件返回
        Public Value As Double
        Public Square As Double
        Public Event ThreadComplete(ByVal Square As Double)
        Public Sub CalcSquare()
            Square = Value * Value
            RaiseEvent ThreadComplete(Square)
        End Sub
    End Class
    Dim WithEvents oSquare As SquareClass
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '多线程返回值测试，当线程运行完成激发事件
        oSquare = New SquareClass()
        Dim t As New Threading.Thread(AddressOf oSquare.CalcSquare)
        oSquare.Value = 30
        t.Start()

    End Sub
    Sub SquareEventHandler(ByVal Square As Double) Handles oSquare.ThreadComplete '响应事件函数
        MsgBox("The square is " & Square)
    End Sub
End Class