vb.net多线程参数 vb 多线程

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

Public Class Form1

    Public Class SquareClass '把多线程调用vb.net多线程参数的函数封装到类中vb.net多线程参数，通过类事件返回

        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 '多线程返回值测试vb.net多线程参数，当线程运行完成激发事件

        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

相关问答

Q1: vb.net 怎样操作带参数的多线程

public class threadclass

{

public int a;

public void threadmethod()

{

//use a;

}

}

...

threadclass tc = new ....

tc.a = 10;

Thread t = new ThreadStart(tc.threadmethod);

t.Start

Q2: VB.net 如何设计多线程运行

Sub Main()

Dim thr As Thread

For Pi As Integer=0 To 4 //启用5线程

MulParams =Pi vbTab sFile vbTab dFile vbTab 1 vbTab DelN vbTab cr vbTab cg vbTab cb vbTab IndexI

GlobalParamas(pi)=MulParams .Split(vbTab)

thr=New Thread(AddressOf MyMulThreadCaller)

thr.Start() //启动多线程进程

Application.DoEvents

Next

End Sub

Q3: Vb.net 怎样操作有参数的多线程而且还是循环的。

    Sub Main()

        Dim thr As New Thread(AddressOf 循环)

        thr.Start("a")

    End Sub

    Sub 循环(a() As String)

        '这里随你干什么循环也行

         For Each i As String In a

            MsgBox(i)

        Next

    End Sub

看懂了吧 参数只能有一个 也可以不是数组，在a() As String的a后面去掉括号就行

关于vb.net多线程参数和vb 多线程的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。