扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
首先，你把你那些要运行很久的过程。尽量放在一个过程中。
创新互联专业为企业提供和田县网站建设、和田县做网站、和田县网站设计、和田县网站制作等企业网站建设、网页设计与制作、和田县企业网站模板建站服务，十余年和田县做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
因为线程只能是过程，不能使函数，没有返回值的。
然后，在某个事件下这样写：
**这里我假设你的那个很就的过程叫做 sub aaa()
调用如下：
Dim mythread As New System.Threading.Thread(AddressOf aaa)
mythread.Start()
***********
这样就是定义一个线程，名字叫 mythread，这个线程会运行aaa这个过程。
start 就是让线程运行。
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
不可以，但是能够在主线程的基础上调用委托（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函数执行结束）后执行。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网