在vb点虐 中，多线程如何使用

Sub Main() Dim thr As New Thread(AddressOf 循环源中态) thr.Start("a") End Sub Sub 循环(a() As String) '这培斗里随雹源你干什么循环也行 For Each i As String In a MsgBox(i) Next End Sub

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名与空间、网络空间、营销软件、网站建设、东昌府网站维护、网站推广。

VB点虐 如何设计多线程运行

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

VB点虐 多线程编程问题

你可以在timer前用if判断网络状碧搭友态，

如断开，可用

threading.Thread.Sleep（10000） ‘当前线程挂起10秒

’可以开一个新线程去读取脱机数据。

如连接，则继续执悔槐行。

补充：

dim i as integer

'超过100次退出，避免死循环枝悔

for i=0 to 100

try

'ping你的端口

if ‘ok

exit for

else

threading.Thread.Sleep（10000） ‘当前线程挂起10秒

end

Catch ex As Exception

End Try

next

vb点虐 里如何设置多线程?

首先，你把你陵猜那些要运行很久的过程。尽量放在一个过程中。

因为线程只能是过氏滑程，不能使函数，没有返回值的。

然后，在某个事件下这样写：

**这里我假设你的那个很就的过程叫做 sub aaa()

调用如下：

Dim mythread As New System.Threading.Thread(AddressOf aaa)

mythread.Start()

***********

这样就是定义一个线程，名字叫 mythread，尺核型这个线程会运行aaa这个过程。

start 就是让线程运行。

网站栏目：vb点虐 多线程技术 vb timer 多线程
本文路径：http://kswsj.cn/article/ddpeihs.html