vb点虐 线程实例的简单介绍

vb点虐 中如何结束一个线程

vb点虐 中如何结束一个线程

在锦江等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都做网站、网站建设 网站设计制作按需规划网站,公司网站建设,企业网站建设,品牌网站建设,成都营销网站建设,成都外贸网站建设,锦江网站建设费用合理。

一般而言,如果您想终止一个线程,您可以使用System.Threading.Thread类的Abort方法. 例如:

Dim worker As ThreadStart = New ThreadStart(AddressOf workerthreadmethod)

Dim t As Thread = New Thread(worker)

t.Start()

MessageBox.Show("Wait for a while for the thread to start.")

MessageBox.Show(t.ThreadState.ToString())

t.Abort()

MessageBox.Show(t.ThreadState.ToString())

t.Join()

MessageBox.Show(t.ThreadState.ToString())

当然,在调用Abort方法后,线程并不是立刻终止,要等线程的所有finally快中的代码完成后才会完全终止. 所以在主线程中可以用Join方法来同步,当线程还未完全终止时,t.Join()将处于等待,直到t线程完全结束后再继续执行后面的语句。

Abort方法是会导致线程跳出一个异常错误的，你需要在代码中捕获该异常。下面是一个比较完整的VB.NET线程告咐扒例子：

Imports System

Imports System.Threading

Public Class MyTestApp

Public Shared Sub Main()

Dim t As New Thread(New ThreadStart(AddressOf MyThreadMethod))

'Start the thread

t.Start()

MsgBox("Are you ready to kill the thread?")

'Kill the child thread and this will cause the thread raise an exception

t.Abort()

' Wait for the thread to exit

t.Join()

MsgBox("The secondary thread has terminated.")

End Sub

Shared Sub MyThreadMethod()

Dim i As Integer

Try

Do While True

Thread.CurrentThread.Sleep(1000)

Console.WriteLine("This is the secondary thread running.")

Loop

Catch e As ThreadAbortException

MsgBox("This thread is going to be terminated by the Abort method in the Main function")

End Try

End Sub

End Class

Thread.Abort()方法用来永久销毁一个线程，而且将抛出ThreadAbortException异常。使终结的线程可以捕获到异常但是很难控制恢复，仅有的办法是调用Thread.ResetAbort()来取消刚才的袜昌简答调用，而且只有当这个异常是由于被调用线程引起的异常。因此，A线程可以正确的使用Thread.Abort()方法作用于B线程，但是B线程却不能调用Thread.ResetAbort()来取消Thread.Abort()操作。

同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 thread闭棚th =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

vb点虐 多线程如何返回参数，举个例子，谢谢

Public Class Form1

Public Class SquareClass '把多线程调用的函数封装到类中，通过类事件返回

Public Value As Double

Public Square As Double

Public Event ThreadComplete(ByVal Square As Double)

派蚂    Public Sub CalcSquare()

Square = Value * Value

RaiseEvent ThreadComplete(Square)

End Sub

End Class

Dim WithEvents oSquare As SquareClass

困销  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '多线程返回值测试，当线程运行完成激发事件

oSquare = New SquareClass()

尘尺埋      Dim t As New Threading.Thread(AddressOf oSquare.CalcSquare)

oSquare.Value = 30

t.Start()

End Sub

Sub SquareEventHandler(ByVal Square As Double) Handles oSquare.ThreadComplete '响应事件函数

MsgBox("The square is "  Square)

End Sub

End Class