VB.NET中的多线程开发

　一个创建自由线程的例子解析

　　我们来看看下面的VB.NET代码，它演示了实现自由线程的过程：

Imports System ' Import the threading namespace Imports System.Threading Public Class clsMultiThreading ' This is a simple method that runs a loop 5 times ' This method is the one called by the HelloWorldThreadingInVB ' class, on a separate thread. 　 Public Sub OwnThread() 　　Dim intCounter as integer 　　For intCounter = 1 to 5 　　　Console.WriteLine("Inside the class: " & intCounter.ToString()) 　　Next 　End Sub End Class Public Class HelloWorldThreadingInVB 　' This method is executed when this EXE is run 　Public Shared Sub Main() Dim intCounter as integer 　　' Declare an instance of the class clsMultithreading object 　　Dim objMT as clsMultiThreading = new clsMultiThreading() 　　' Declare an instance of the Thread object. This class 　　' resides in the System.Threading namespace 　　Dim objNewThread as Thread 　　'Create a New Thread with the Thread Class and pass 　　' the address of OwnThread method of clsMultiThreading class 　　objNewThread = new Thread(new ThreadStart(AddressOf objMT.OwnThread)) 　　' Start a new Thread. This basically calls the OwnThread 　　' method within the clsMultiThreading class 　　' It is important to know that this method is called on another 　　' Thread, as you will see from the output 　　objNewThread.Start() 　　' Run a loop and display count 　　For intCounter = 10 to 15 　　　Console.WriteLine("Inside the Sub Main: " & intCounter.ToString()) 　　Next 　End Sub End Class

　　代码的开始是引入名字空间System和System.Threading，然后创建一个公用类clsMultiThreading。类clsMultiThreading中包含一个公用方法OwnThread，它执行了5次for循环，每次显示信息到屏幕。创建这个类的目的是为了以单独线程的方式从其他类中调用OwnThread方法。

　　接着，我们创建另外一个类HelloWorldThreadingInVB，它包含一个方法Main。当最终生成的可执行文件运行时，Main将启动。在方法Main中，我们创建了一个clsMultiThreading类的实例，这样就能调用它的方法OwnThread了。

　　现在，我们通过传递方法OwnThread的地址的方式来创建线程类实例，实际上这就等于创建了一个新的线程，并且告知线程当它运行时要执行的方法。我们使用函数AddressOf 获取方法OwnThread的地址，然后将之传递到ThreadStart代表类。

　　然后，我们调用Thread类的Start方法启动了这个新类。新类按照自己的方式开始运行，不再需要依赖创建它的类。

　　编 译

　　我们将上面的代码保存为文件Thread.VB，然后将之进行编译：

　　

vbc.exe Thread.vb /t:exe /debug /cls

　　编译成功后，将创建可执行文件Thread.Exe。运行Thread.Exe，我们会得到下面的结果：


　　请注意：来自clsMultiThreading 类和HellWorldThreadinginVB 类的输出信息并不是同步的。这就表明，当执行objNewThread.Start()命令的同时，一个新线程也启动了，并且执行了那个新线程中的OwnThread方法。2个线程是并列运行的，现象就是显示信息数字1到5不是在一起，其中穿插了来自main线程的输出信息。

　　结 语

　　以上就是在VB.NET中创建多线程应用的过程。你会感到这是多么的简单，但同时实现了非常强大的功能。使用多线程功能，我们可以创建更好的商业和数据层组件，并且，凭借我们的想像力，将之发挥到更好。

查看本文来源