VB编程中多线程的使用方法-控件新闻-慧都网

VB编程中多线程的使用方法

原创|其它|编辑：郝浩|2010-03-12 11:09:38.000|阅读 2027 次

概述：VB语言的一大弱点就是缺乏编写自由线程(free-threaded)程序的能力。在.net Framework中，所有语言共享CRL(Common Runtime Library，公共运行库)，也就是说，你可以用VB.net、C#或其它.NET语言编写同样的程序。

# 界面/图表报表/文档/IDE等千款热门软控件火热销售中 >>

　　多线程

　　VB语言的一大弱点就是缺乏编写自由线程(free-threaded)程序的能力。在.net Framework中，所有语言共享CRL(Common Runtime Library，公共运行库)，也就是说，你可以用VB.net、C#或其它.NET语言编写同样的程序。

　　System.Threading namespace定义了线程类。我们只需要引入System.Threading namespace，即可使用线程类。

　　System.Threading.Thread类提供线程对象，可以使用Thread类创建或破坏线程。

　　创建线程

　　使用Thread类的实体创建一个新线程，然后用Thread.Start方法开始执行线程。线程构造器接受一个参数，该参数指明你要在线程中执行的procedure。在下例中，我想在oThread1(Thread类的一个实体)的第二线程中执行SecondThread过程：

　oThread1 = New Thread(AddressOf SecondThread)
　　SecondThread procedure looks like below:
　　Public Sub SecondThread()
　　Dim i As Integer
　　For i = 1 To 10
　　Console.WriteLine(i.ToString())
　　Next
　　End Sub

　　然后，调用Thread.Start()开始线程：

　　oThread1.Start()

　　下面的代码创建两个第二线程：

　Imports System
　　Imports System.Threading
　　Module Module1
　　Public oThread1 As Thread
　　Public oThread2 As Thread
　　Sub Main()
　　oThread1 = New Thread(AddressOf SecondThread)
　　oThread2 = New Thread(AddressOf ThirdThread)
　　oThread1.Start()
　　oThread2.Start()
　　End Sub
　　Public Sub SecondThread()
　　Dim i As Integer
　　For i = 1 To 10
　　Console.WriteLine(i.ToString())
　　Next
　　End Sub
　　Public Sub ThirdThread()
　　Dim i As Integer
　　For i = 1 To 10
　　Console.WriteLine("A" + i.ToString())
　　Next
　　End Sub
　　End Module

　　破坏线程

　　调用Abort方法来破坏(中止)一个线程。在调用Abort之前，确保用IsAlive判断线程处于活动状态。

　If oThread1.IsAlive Then
　　oThread1.Abort()
　　End If

　　暂停线程

　　可以使用Sleep方法来暂停线程执行。Sleep方法接受一个以毫秒为单位的参数，指明线程应当暂停多长时间。

　　下面的例子让线程暂停1秒钟：

　oThread2.Sleep(1000)

　　你也可以使用Suspend和Resume方法来挂起和继续线程执行。

　　设定线程优先级

　　Thread类的Priority属性用于设定线程优先级。该属性可以设置为Normal，AboveNormal，BelowNormal，Highest和Lowest。如：　

oThread2.Priority = ThreadPriority.Highest

　　线程与Apartment

　　使用ApartmentState属性设置线程的apartment类型，该属性值可以为STA，MTA或是Unknown[2]：

　　oThread.ApartmentState = ApartmentState.MTA

　　MTS意味着可以使用多线程模式，而STA则只能是单线程执行。

　　Public Enum ApartmentState
　　{
　　STA = 0,
　　MTA = 1,
　　Unknown = 2,
　　}

标签：

本站文章除注明转载外，均为本站原创或翻译。欢迎任何形式的转载，但请务必注明出处、不得修改原文相关链接，如果存在内容上的异议请邮件反馈至chenjj@evget.com

文章转载自：网络转载

上一篇：MySQL数据库备份方案说明下一篇：VB.NET如何实现邮件发送

在线采购

中文文档库

试用/Demo下载

开发社群