vb点虐 简单多线程 vb60 多线程

VB.NET 简单多线程

多线程一般是不推荐用的，因为线程之间如果有共享资源的话会引起竞争，需要加锁处理；而且线程间没有时序关系，所以你在调试中可能会出现异步处理结束顺序与开始处理顺序不一致的情况（我在调试中已经发现该问题）。

创新互联建站是一家集网站建设,那曲企业网站建设,那曲品牌网站建设,网站定制,那曲网站建设报价,网络营销,网络优化,那曲网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

针对你提出的这个问题，采用了多线程处理，利用的是BackgroundWorker也就是异步处理控件进行了处理。

代码已经经过调试通过。欢迎交流，如有问题，留下QQ或其他联系方式。

代码如下，并附程序截图。

‘---------------------------------------------------

Imports System.ComponentModel '导入异步控件命名空间

Public Class Form1

Private howmany As Integer = 10

Private AnalysisNumber(0 To howmany - 1) As BackgroundWorker

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

ListBox1.Items.Clear()

creatNewBackgroundWorker()

addHandle()

startWork()

End Sub

Private Sub creatNewBackgroundWorker()

For i As Integer = 0 To AnalysisNumber.Length - 1

AnalysisNumber(i) = New BackgroundWorker

Next

End Sub

Private Sub addHandle()

For i As Integer = 0 To AnalysisNumber.Length - 1

AddHandler AnalysisNumber(i).DoWork, AddressOf AnalysisNumber_DoWork

AddHandler AnalysisNumber(i).RunWorkerCompleted, AddressOf AnalysisNumber_RunWorkerCompleted

Next

End Sub

Private Sub startWork()

For i As Integer = 0 To 9

Dim temp(0 To 9) As Integer

For j As Integer = 1 To 10

temp(j - 1) = 10 * i + j

Next

AnalysisNumber(i).RunWorkerAsync(temp)

Next

End Sub

Private Sub AnalysisNumber_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)

Dim data As Integer()

data = CType(e.Argument, Integer())

Dim temp As Integer

For i As Integer = 0 To data.Length - 1

temp = data(i)

data(i) = temp * temp

Next

e.Result = data

End Sub

Private Sub AnalysisNumber_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)

Dim data As Integer()

data = CType(e.Result, Integer())

For i As Integer = 0 To data.Length - 1

ListBox1.Items.Add(data(i))

Next

End Sub

End Class

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 怎么实现多线程

很简单，调用API函数CreateThread

但是用vb做多线程的关键不在于创建，而是在于线程的不稳定，其不稳定是由于vb6自身的控件（如按钮、文本框等）不是线程安全的，怎么用你程序就可能怎么挂，所以这些个玩样儿在多线程中统统不能用。

那么UI的实现也得用API实现。这样vb的多线程才相对要稳定。但是vb的可视化开发的优势又荡然无存。

同Java一样简单！VB.NET多线程开发实例

VB NET（Visual Basic NET）是为适应Microsoft NET框架的需要 对Visual Basic进行了重大改造后的开发工具 它比Visual Basic 功能更强大 更易于使用 其中最重要的变化就是对象继承 在VB NET中 所有可管理的类型都衍生自System Object 作为编程工具 最重要的一个特性就是垃圾碎片的回收 它由CLR（Common Language Runtime）进行控制 并提供更好的内存管理功能 通用的类型定义可以提供更好的互操作性和协同工作能力 因此 VB NET显得更强大 更具可靠性 在VB NET中 大多数CLR内建的类型都在System名字空间里已经定义了 比如 System Object System Int 和 System String 要注意的是 一个名字空间可能嵌在另一个名字空间内 象System Data里就有System Data DataSet的类 代表是CLR编程模型很重要的一个新概念 代表是一个特殊类型的可管理的类 当你创建一个代表的实例时 你必须提供一个带有匹配签名的方法执行的地址 一旦创建了一个代表的实例 调用方法将变的很容易 过去 我们利用VB开发多线程的应用程序时 是一件很令人痛苦的事 经常是多线程的程序运行是会变成多错误的程序！但在VB NET中 这种状况已经大为改观 现在 我们利用VB NET处理多线程和利用JAVA处理多线程一样简单了 下面我们就举个例子 来看看VB NET的多线程吧！下面是多线程程序threadtest vb的代码 imports Systemimports System Threadingpublic class AClasspublic sub Method ()Dim i as integerFor i = to Console Writeline( 这是类AClass方法method 的内容 i)nextend subpublic sub Method ()Dim i as integerFor i = to Console Writeline( 这是类AClass方法method 的内容 i)nextend subend classpublic class ThreadTestpublic shared sub Main()dim obj as new aclassdim th th as threadth =new Thread(new ThreadStart(addressof thod ))th startth =new Thread(new ThreadStart(addressof thod ))th startdim i as integerFor i= to Console WriteLine( Main方法里的内容 i)Nextend subend class现在 来让我们剖析一下上面的例子 我们创建了我们自己的类AClass 并创建了两个方法 Method 和Method 这两个方法很简单 只有一个For循环 向输出设备输出一些信息 我们还定义了另外一个类ThreadTest来使用上面创建的类AClass 在Main()方法中 我们创建了类Thread的实例 类Thread可以在System Threading名字空间里得到 它定义了处理线程的属性和方法 在类Thread的构造器中 我们使用了类ThreadStart 类ThreadStart是一个代表 标志着当一个线程开始时就开始执行定义的方法 为了执行定义的方法 我们实际调用的是线程的Start()方法 用VBC来编译上面的程序 vbc /out:threadtest exe threadtest vb 运行编译后的程序 我们将会看到我们定义的两个方法和main()方法的混合输出 这就说明每一个方法都在自己的线程下运行 除了上面的方法 线程还有下面常用的方法 Stop():停止线程的运行 Suspend() 暂停线程的运行 Resume() 继续线程的运行 Sleep() 停止线程一段时间（单位为毫秒） lishixinzhi/Article/program/net/201311/11287