vbnet多线程 vbnet多线程进度条

在vb.net中，多线程如何使用

Sub Main() Dim thr As New Thread(AddressOf 循环) thr.Start("a") End Sub Sub 循环(a() As String) '这里随vbnet多线程你干什么循环也行 For Each i As String In a MsgBox(i) Next End Sub

相关问答

Q1: 求教VB.net多线程问题

多线程是用于处理复杂项目的

打个比方

你的主程序线程A中有个循环，由于代码是一行行走的，所以循环结束前下面的代码无法运行，而此时主界面的反应就类似卡死的样子，你点击按钮也没有反应，因为主线程在忙着循环呢，所以对按钮的事件代码要等待了，如果要避免这种情况，就要用到多线程，另开一个新线程专门用来执行循环代码，主界面就不会卡死了，只要在循环结束后将结果传回主线程调用就可以了，再复杂点要涉及到委托，控制了

按你的要求其实你的代码用不到多线程，只要把sleep放到两段代码中间就可以了。

新线程结束用thread.abort()

Q2: VB.NET 多线程简化步骤问题

过程只需要1个vbnet多线程，线程你要多少就需要创建多少vbnet多线程，这个可以用循环来创建：

Dim Thd(99) As Thread

For i As Integer =0 to 99

Thd(i)=New Thread(AddressOf Start)

Thd(i).Start()

Next

如果你不需要保留这些线程的引用

那个数组也可以省略掉

直接在循环中(New Thread(AddressOf Start)).Start()就行vbnet多线程了

---------------------------------------------------------------------------

代码不是在IDE中打的vbnet多线程，可能有细微小错误

Q3: 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

Q4: VB.net可以多线程控制同一个窗体及其控件吗

不可以，但是能够在主线程的基础上调用委托（Invoke）。（主线程会被占用）

例子：

Dim thr As Threading.Thread

Public Delegate Sub VoidDelegate()

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

thr = New Threading.Thread(AddressOf Where)

thr.Start()

End Sub

Public Sub Where()

Me.BeginInvoke(New VoidDelegate(AddressOf WhereThr))

End Sub

Public Sub WhereThr()

Me.TextBox.text="0123456789"

End Sub

(Invoke)这种情况下，主线程被占用，所有由主线程执行程序，都将被（wherethr函数执行结束）后执行。

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

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

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