很长时间以来，开发人员一直要求微软为VB增加更多的线程功能——这一点在VB.NET中终于实现了。VB6不支持创建VB.NET多线程的EXE、DLL以及OCX。但这种措词容易引起误解，这是因为VB6支持执行多个单线程的单元。一个单元实际上是代码执行的场所而且单元的边界限制了外部代码对单元内部的访问。
VB.NET支持创建自由线程的应用程序。这意味着多个线程可以访问同一个共享的数据集。本文将带领你了解VB.NET多线程的基本内容。
虽然VB支持多个单线程的单元，但并不支持允许多个线程在同一个数据集上运行的自由线程模型。在很多情况下，产生一个运行后台处理程序的新线程会提高应用程序的可用性。一种很显然的情况就是当执行一个可能使窗体看起来停止响应的长过程时，你一定会想在窗体上放置一个取消按钮。
由于VB.NET使用公共语言运行时(Common Language Runtime)，它增强了很多新的特性，其中之一便是创建自由线程应用程序的能力。
在VB.NET中，开始使利用线程进行工作是很容易的。稍后我们会探究一些精妙之处，我们先创建一个简单的窗体，它生成一个执行后台处理程序的新线程。我们需要做的第一件事是将要在新线程上运行的后台处理程序。下面的代码执行一个相当长的运行过程——一个无限循环：
- PrivateSubBackgroundProcess()
- DimiAsInteger=1
- DoWhileTrue
- ListBox1.Items.Add("Iterations:"+i)
- i+=1
- Loop
- EndSub
这段代码无限地循环并在每次循环中向窗体上的列表框中增加一个条目。如果你对VB.NET不熟悉的话，便会发现这段代码中有一些在VB6中无法完成的事：
◆在声明变量时对其赋值 Dim i As Integer=1
◆使用+=操作符 i+=1代替了i=i+1
◆Call关键字已经被去除了
一旦我们有了一个工作过程，便需要将这段代码指派给一个新的线程并开始它的执行。完成这项工作，我们需要使用Thread对象，它是.NET框架类中System.Threading命名空间的一部分。当实例化了一个新的Thread类时，我们向其传递一个引用，这个引用指向我们想要在Thread类的构造函数中执行的代码块。下面的代码创建一个新的Thread对象并将指向BackgroundProcess的引用传递给它：
DimtAsThread
- t=NewThread(AddressOfMe.BackgroundProcess)
- t.Start()
AddressOf操作符为BackgroundProcess方法创建了一个委派对象。委派在VB.NET中是一种类型安全的、面向对象的函数指针。在线程被实例化之后，你可以通过调用线程的Start()方法开始执行代码。
使线程处于控制之下
当线程开始之后，你可以通过使用Thread对象的方法对其状态进行一定的控制。你可以通过调用Thread.Sleep方法暂停线程的执行。这个方法接收一个表示线程将要休眠多长时间的整型数值。如果在上例中你想要减缓列表框条目的添加，在代码中放置一个对此方法的调用：
Thread.CurrentThread.Sleep(2000)
- EndSub
CurrentThread是一个公共静态属性，它可以使你获取一个对当前运行线程的引用。
你还可以通过调用Thread.Sleep (System.Threading.Timeout.Infinite)使一个线程处于一种时间不确定的休眠状态。要中断这种休眠，可以调用Thread.Interrupt 方法。
类似与Sleep和Interrupt的是Suspend和Resume。Suspend允许你阻塞一个线程直到另外的线程调用Thread.Resume。Sleep和Suspend之间的区别在于后者不是立即使一个线程处于等待状态。在.NET运行时确定线程是处于一个安全的挂起位置之前，线程是不会挂起的。Sleep则是立即使线程进入等待状态。
最后，Thread.Abort中止一个线程的执行。在我们的简单例子中，我们还想增加另外一个可以使我们中止程序的按钮。要完成这些，我们所需做的一切便是如下面这样调用Thread.Abort方法：
PrivateSubButton2_Click(ByValsenderAsSystem.Object,_
- ByValeAsSystem.EventArgs)HandlesButton2.Click
- t.Abort()
- EndSub
在此便可以看出多线程的能力。用户界面看起来对用户是有响应的，因为它运行在一个线程中而后台的处理程序运行在另一个线程中。取消按钮会立即响应用户的click事件同时处理过程被中止。
通过VB.NET多线程的过程传递数据
上一个例子展示了一种相当简单的情况。在你编程的时候，多线程有很多需要解决的复杂问题。你将会遇到的一个问题是向传递给Thread类构造函数的过程传递数据以及从这个过程传出数据。换言之，你想要在另一个线程上开始的过程不能接收任何参数而且你也不能从这个过程返回任何数据。这是因为传递给线程构造函数的过程不能有任何参数或返回值。为了避开这个问题，将你的过程包装到一个类中，在这个类中此方法的参数被表示成类的一个域。
有一个简单的例子，如果我们有一个计算一个数的平方的过程：
FunctionSquare(ByValValueAsDouble)AsDouble
- ReturnValue*Value
- EndFunction
为了使这个过程可以在一个新线程中使用，我们将其包装到一个类中：
PublicClassSquareClass
- PublicValueAsDouble
- PublicSquareAsDouble
- PublicSubCalcSquare()
- Square=Value*Value
- EndSub
- EndClass
使用这些代码在一个新线程中启动CalcSquare过程，代码如下：
PrivateSubButton1_Click(ByValsenderAsSystem.Object,0); line-height:24px; padding-top:0px!important; padding-right:3px!important; padding-bottom:0px!important; padding-left:14px; list-style-type:decimal-leading-zero; list-style-position:outside!important">ByValeAsSystem.EventArgs)HandlesButton1.Click
- DimoSquareAsNewSquareClass()
- t=NewThread(AddressOfoSquare.CalcSquare)
- oSquare.Value=30
- t.Start()
- EndSub
注意：当线程开始后，我们没有检查类的平方值，因为并不能保证一旦你调用线程Start方法，它便会执行。有一些方法可以从另外的线程中获取这个值。最简单的方法是当线程完成时引发一个事件。我们会在下一个部分线程同步中讨论另外一种方法。下面的代码为SquareClass增加了事件声明。
PublicEventThreadComplete(ByValSquareAsDouble)
- RaiseEventThreadComplete(Square)
- EndClass
在调用代码中捕获这个事件与VB6相比没有太大的变化，仍然是用WithEvents声明变量并在一个过程中处理事件。变化的部分是用Handles关键字声明处理事件的过程并且不再使用像VB6中Object_Event的命名约定。
DimWithEventsoSquareAsSquareClass
- PrivateSubButton1_Click(ByValsenderAsSystem.Object,_
- oSquare=NewSquareClass()
- SubSquareEventHandler(ByValSquareAsDouble)_
- HandlesoSquare.ThreadComplete
- MsgBox("Thesquareis"&Square)
- EndSub
这个方法需要注意的一个问题是处理事件的过程，在本例中是SquareEventHandler，将运行在引发事件的线程中，而不是运行在窗体从中执行的线程中。
线程同步
VB.NET包含了一些语句用于提供线程的同步。在Square的例子中，你可能想同步执行计算的线程以便等到计算完成，这样便可以获得结果。举另外一个例子，如果你在一个单独的线程中对数组进行排序并且在使用这个数组之前要等待这个处理过程结束。为了实现这些同步，VB.NET提供了SyncLock语句和Thread.Join方法。
SyncLock获取了对传递给它的对象引用的独占性锁。通过取得这种独占锁，你可以确保多个线程不会访问共享的数据或是在多个线程上执行代码。一个可以方便地用于获取锁地对象是关联于每个类的System.Type对象。可以通过GetType方法获得System.Type对象：
PublicSubCalcSquare()
- SyncLockGetType(SquareClass)
- EndSyncLock
- EndSub
最后，Thread.Join方法允许你等待一段特定的时间直到一个线程结束。如果线程在你所确定的时间之前完成，Thread.Join返回True，否则的话返回False。在Square的例子中，如果我们不想引发事件，可以调用Thread.Join方法来确定计算是否已经结束。代码如下所示：
Ift.Join(500)Then
- MsgBox(oSquare.Square)
- EndIf
- EndSub