Cómo devolver parámetros en subprocesos múltiples de vb.net, proporcione un ejemplo
Public?Class?SquareClass? "Encapsula funciones llamadas por múltiples subprocesos en clases y las devuelve a través de eventos de clase
Public?Value?As?Double
>¿Público?Cuadrado?As?Doble
Público?Evento?ThreadComplete(ByVal?Cuadrado?As?Doble)
Público?Sub?CalcCuadrado() p>
Cuadrado?=?Valor?*?Valor
RaiseEvent?ThreadComplete(Cuadrado)
Fin?Sub
Fin?Clase
¿Dim?WithEvents?oSquare?As?SquareClass
¿Privado?Sub?Button1_Click(remitente?As?Object,?e?As?EventArgs)?Process Button1.Click?'Valor de retorno multiproceso Prueba , el evento se activa cuando el hilo termina de ejecutarse
Soquare?=?New?SquareClass()
Dim? p>Dim?t?As?New?Threading.Thread(AddressOf) ? oSquare.CalcSquare)
OSquare.Value?=?30
t.Start()
Fin?Sub
Sub? SquareEventHandler (ByVal?Square?As?Double)? Maneja la función de evento de respuesta de oSquare.ThreadComplete
MsgBox("The?square?is?"?&?Square)
Fin ?Sub
¿Fin?