vb点虐启动线程 vb多线程实现

求大神指点 vb点虐 Threading.Thread 的使用方法

用全称可以Microsoft.VisualBasic.Left("sting123", 4),要不然开发环境以为是窗体的left属性呀 VB6很多内部函数都在这个命名空间里面Microsoft.VisualBasic

创新互联是一家专业提供香河企业网站建设,专注与成都网站建设、网站制作、H5技术、小程序制作等业务。10年已为香河众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。

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

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

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

虽然你的想法是在 LoginBtn_Click 事件中将复杂的操作分离出去以减轻UI的负担, 这很好完全没有问题.

但是问题在于 Me.Invoke(dh)这里,若是ChkLogin里面仍然是大规模的操作呢你的代码就又变成将很复杂的操作扔给了UI, 当然会出现窗体无法拖动的情况了.

解决办法很简单, 很多种. 将ChkLogin()里的操作直接放在DelegateLogin()里面吧 me.invoke仅仅只是做简单的轻量的刷新之类的操作就好了.

希望能帮上你的忙.

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

End Sub

当前文章：vb点虐启动线程 vb多线程实现
文章链接：http://cdiso.cn/article/ddedech.html