vb点虐 新线程 vb 线程

求教VB点虐 多线程问题

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

成都创新互联公司服务项目包括中方网站建设、中方网站制作、中方网页制作以及中方网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，中方网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到中方省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

打个比方

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

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

新线程结束用thread.abort()

Vb点虐 ，多线程，新线程启动后，界面响应变慢，但可以相应，怎么解决？

以下是在多线程中显示进度条代码

'定义一个委托

Delegate Sub dl_ShowProgress(ByVal iValue As Integer)

Public Sub ShowProgress(ByVal iValue As Integer)

If ProgressBar1.IsDisposed Then

Return

End If

If ProgressBar1.InvokeRequired = True Then

Dim pInvoke As New dl_ShowProgress(AddressOf ShowProgress)

Me.Invoke(pInvoke, New Object() {iValue})

Else

ProgressBar1.Value = iValue

ProgressBar1.Refresh()

End If

End Sub

'在多线程中调用ShowProgress(*)函数

vb点虐 怎么新建线程

Private Sub setA()

msgbox("")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim t1 As Threading.Thread = New Threading.Thread(AddressOf setA)

t1.start

End Sub

VB点虐 主线程和新增线程不同时运行怎么办

多线程就是这样的。界面线程是主线程，你这个Form_Load就是运行在主线程上的线程，而Thread1，Thread2是由主线程启动的。这个启动不是线性的。

主线程只是通知系统，请启动一个线程运行某某函数。

而哪个线程先运行完全在系统决定。甚至可能主线程执行到Thread1.Abort() ,Thread2.Abort()的时候这两个线程都还没有启动起来，所以你会遇到两个变量都是空值这种情况。