vb.net多线程问题

[weixin_45823259]

Imports System.Threading
Public Class frm_Sim_CalProgress
Inherits System.Windows.Forms.Form
Dim t1 As Thread
Dim t2 As Thread
Dim t3 As Thread

Private Sub ButtonCalculation_Click(sender As Object, e As EventArgs) Handles ButtonCalculation.Click
t1 = New Thread(AddressOf Me.GiveInfo)
t1.Start()
t2 = New Thread(AddressOf Me.GiveProcName)
t2.Start()
t3 = New Thread(AddressOf Me.Execute)
t3.Start()
End Sub

其中我把GiveInfo()、GiveProcName()、Execute()写在了一个模块里

Public Sub GiveInfo()
frm_Sim_CalProgress.pnlCalE.Text = FloatToStrF(CurE, ffFixed, 10, 2)
If CurE < MaxE Then
frm_Sim_CalProgress.ProgressBarCalE.Value =
frm_Sim_CalProgress.ProgressBarCalE.Maximum * (MaxE - CurE) / MaxE
Else
frm_Sim_CalProgress.ProgressBarCalE.Value = 0
End If
End Sub

Public Sub GiveProcName()
frm_Sim_CalProgress.pnlProcName.Text = ProcName
End Sub

出现了错误

[清晨曦月]

多线程已经七窍通六窍鸟^ ^

[jhonsonzhang]

你这样写多线程的意义在哪里。 跟直接写 Me.GiveInfo Me.GiveProcName Me.Execute 有什么不同。用new thread 装B么？即不异步处理结果，也不需要并发处理。这种多线程写法无意义。非要用，建议使用task

[58662877]

你的三个过程在模块里面，为何你在窗体用Me？而且你的子线程是不能直接去修改主线程的UI的。

[良朋]

建议你用task. 用lamda表达式，c#里面用=>,vb.net里用Function，百度一下就会了。

[xiaoid]

在线程里不能直接访问控件，必须使用委托 。

[Hodgins-k]

用task应该好一些

[「已注销」]

        Dim t1 As New Task(Sub() Invoke(Sub() GiveInfo()))
        t1.Start()
        Dim t2 As New Task(Sub() Invoke(Sub() GiveProcName()))
        t2.Start()
        Dim t3 As New Task(Sub() Invoke(Sub() Execute()))
        t3.Start()