VB.NET多线程应用技巧点击:发布日期：2010-5-169:35:34进入论坛开发者一直要求微软为VB加入更多的多线程功能，对于VB.NET也是这样。VB6已经支持建立多线程的EXE、DLL和OCX。不过使用多线程这个词语，可能也不太确切。因此VB6仅支持运行多个单线程的单元。一个单元实际上是代码执行的空间，而单元的边界限制了代码访问任何单元以外的事物。VB.NET就不同了，它支持建立自由线程(free-threaded)的应用。这意味着多个线程可以访问同样一套的共享数据。本文的以下部分将讨论一下多线程的一些基本点。问题虽然VB6支持多个单线程的单元，不过它并不支持一个自由线程的模型，即不允许多个线程使用同一套数据。在许多的情况下，你需要建立一个新的线程来进行后台的处理，这样可提高应用的可用性，否则，一个长的处理就可以令程序的响应变得很慢，例如你按下表格上的一个取消按钮，却很久都没有响应。解决办法由于VB.NET使用了CLR（CommonLanguageRuntime），从而拥有了许多的新特性，其中的一个是可以创建自由线程的应用。使用线程在VB.NET中，运用线程是很简单的。我们将在后面涉及其中的细节，现在我们首先来创建一个简单的表格，它使用一个新的线程来运行一个后台处理。第一件要做的事情是创建运行在新线程上的后台任务。以下的代码执行一个相当长的运行处理--一个无限的循环：PrivateSubBackgroundProcess()DimiAsInteger=1DoWhileTrueListBox1.Items.Add("Iterations:"+i)i+=1LoopEndSub这段代码无限地循环，并且在每次执行时为表格上的一个列表框加入一个项目。如果你对VB.NET不熟悉的话，你将会发现这段代码和VB6的有一些区别：.在声明变量DimiAsInteger=1时赋值.使用+=操作符i+=1代替i=i+1.没有使用Call关键字一旦我们拥有了一个工作的处理，我们就需要将这段代码分配给一个线程处理，并且启动它。为此我们要使用线程对象（Threadobject），它是.NET架构类中System.Threading命名空间的一部分。在实例化一个新的线程类时，我们将要在线程类构造器执行的代码块的一个引用传送给它。以下的代码创建一个新的线程对象，并且将BackgroundProcess的一个引用传送给它：DimtAsThreadt=NewThread(AddressOfMe.BackgroundProcess)t.Start()AddressOf操作符创建了一个到BackgroundProcess方法的委派对象。在VB.NET中，一个委派是一个类型安全、面向对象的函数指针。在实例化该线程后，你可以通过调用线程的Start()方法来开始执行代码。控制线程在线程启动后，你可以通过线程对象的一个方法来控制它的状态。你可以通过调用Thread.Sleep方法来暂停一个线程的执行，这个方法可以接收一个整型值，用来决定线程休眠的时间。拿前面的例子来说，如果你想让列表项目增加的速度变慢，可以在其中放入一个sleep方法的调用：PrivateSubBackgroundProcess()DimiAsInteger=1DoWhileTrueListBox1.Items.Add("Iterations:"+i)i+=1Thread.CurrentThread.Sleep(2000)LoopEndSubCurrentThread是一个publicstatic的属性值，可让你得到当前运行线程的一个引用。你还可以通过调用Thread.Sleep(System.Threading.Timeout.Infinite)来让线程进入休眠状态，有点特别的是，这个调用的休眠时间是不确定的。要中断这个休眠，你可以调用Thread.Interrupt方法。与休眠和中断类似的是挂起和恢复。挂起可让你暂停一个线程，直到另一个线程调用Thread.Resume为止。休眠和挂起的区别是，后者并不立刻让线程进入一个等待的状态，线程并不会挂起，直到.NETruntime认为现在已经是一个安全的地方来挂起它了，而休眠则会立刻让线程进入一个等待的状态。最后要介绍的是Thread.Abort，它会停止一个线程的执行。在我们的那个简单例子中，如果要加入一个按钮来停止处理，很简单，我们只要调用Thread.Abort方法就行了，如下所示：PrivateSubButton2_Click(ByValsenderAsSystem.Object,_