减小
增大财管家园.fs119.net
对于使用VB6的开发者而言，要在程序中实现多线程（multi-thread）功能，一般就是使用Win32API调用。但凡是进行过这种尝试的开发者都会感觉到实现过程非常困难，而且总是会发生些nullterminatedstringsGPF的错误。可是有了VB.NET，一切烦恼都成为过去。
自由线程（freethreaded）
在VB6中，我们只能对组件设置多线程模式，这通常就是单元模式的多线程。对于单元线程组件而言，组件中的每个可执行方法都将在一个和组件相联系的线程上运行。这样，我们就可以通过创建新的组件实例，使得每个实例都有一个相应的线程单元，从而达到每个正在运行的组件都有它自己的线程，多个组件可以在各自的单元中同时运行方法。
但是如果在程序的Session或Application控制范围内，我们不会使用单元线程组件，最佳的也是唯一的选择是自由线程组件。可是仅仅有VB6还不行，我们需要VC或Java的帮助。
现在好了，VB.NET改善了这些功能，.NETSDK中包含的System.Threading名字空间专门负责实现多线程功能，而且操作相当简单：只需要利用System.Threading名字空间中的Thread类，就具有了实现自由线程的属性和方法。
财软 联盟 fs119.net
我们来看看下面的VB.NET代码，它演示了实现自由线程的过程：
’Importthethreadingnamespace
ImportsSystem.Threading
PublicClassclsMultiThreading
’Thisisasimplemethodthatrunsaloop5times
’ThismethodistheonecalledbytheHelloWorldThreadingInVB
’class,onaseparatethread.
PublicSubOwnThread()
DimintCounterasinteger
ForintCounter=1to5
Console.WriteLine("Insidetheclass:"&intCounter.ToString())
Next
EndSub
EndClass
PublicClassHelloWorldThreadingInVB
’ThismethodisexecutedwhenthisEXEisrun
PublicSharedSubMain()DimintCounterasinteger
’DeclareaninstanceoftheclassclsMultithreadingobject
DimobjMTasclsMultiThreading=newclsMultiThreading()
’DeclareaninstanceoftheThreadobject.Thisclass
’residesintheSystem.Threadingnamespace
DimobjNewThreadasThread
’CreateaNewThreadwiththeThreadClassandpass
’theaddressofOwnThreadmethodofclsMultiThreadingclass 财软 联盟 fs119.net
objNewThread=newThread(newThreadStart(AddressOfobjMT.OwnThread))
’StartanewThread.ThisbasicallycallstheOwnThread
’methodwithintheclsMultiThreadingclass
’Itisimportanttoknowthatthismethodiscalledonanother
’Thread,asyouwillseefromtheoutput
objNewThread.Start()
’Runaloopanddisplaycount
ForintCounter=10to15
Console.WriteLine("InsidetheSubMain:"&intCounter.ToString())
Next
EndSub
EndClass
财管家,园,fs119.net
财软 联盟 fs119.net
财管家 园 fs119.net
财,软联盟,fs119.net
代码的开始是引入名字空间System和System.Threading，然后创建一个公用类clsMultiThreading。类clsMultiThreading中包含一个公用方法OwnThread，它执行了5次for循环，每次显示信息到屏幕。创建这个类的目的是为了以单独线程的方式从其他类中调用OwnThread方法。
接着，我们创建另外一个类HelloWorldThreadingInVB，它包含一个方法Main。当最终生成的可执行文件运行时，Main将启动。在方法Main中，我们创建了一个clsMultiThreading类的实例，这样就能调用它的方法OwnThread了。
现在，我们通过传递方法OwnThread的地址的方式来创建线程类实例，实际上这就等于创建了一个新的线程，并且告知线程当它运行时要执行的方法。我们使用函数AddressOf获取方法OwnThread的地址，然后将之传递到ThreadStart代表类。
然后，我们调用Thread类的Start方法启动了这个新类。新类按照自己的方式开始运行，不再需要依赖创建它的类。
编译
我们将上面的代码保存为文件Thread.VB，然后将之进行编译：
编译成功后，将创建可执行文件Thread.Exe。运行Thread.Exe，我们会得到下面的结果：
财软联,盟,fs119.net
请注意：来自clsMultiThreading类和HellWorldThreadinginVB类的输出信息并不是同步的。这就表明，当执行objNewThread.Start()命令的同时，一个新线程也启动了，并且执行了那个新线程中的OwnThread方法。2个线程是并列运行的，现象就是显示信息数字1到5不是在一起，其中穿插了来自main线程的输出信息。
结语
以上就是在VB.NET中创建多线程应用的过程。你会感到这是多么的简单，但同时实现了非常强大的功能。使用多线程功能，我们可以创建更好的商业和数据层组件，并且，凭借我们的想像力，将之发挥到更好。 财管,家园,fs119.net
财.软联盟.fs119.net
Google.cn搜索相关文章：
谷歌中搜索全球网 VB.NET中的多线程开发
百度中搜索 VB.NET中的多线程开发
谷歌中搜索www.fs119.net VB.NET中的多线程开发
下一篇：VB.NET窗体操作技巧两则
精品课程推荐
- 在VisualBasic.NET中实现后台进程(三
- 在VisualBasic.NET中实现后台进程(二
- 在VisualBasic.NET中实现后台进程(一
- VB.NET开发互联网应用
- VisualBasic.NET中操作MsAgent
- VisualBasic.NET快速开发MIS系统
- VisualBasic.NET实现后台处理
- 运用VB.net创建Web服务访问程序
- 一步一步创建VisualBasic.NET控件
- 如何用VB.Net创建一个三层的数据库应
- VisualBasic.NET中动态加载类
- VisualBasic.NET中访问数据的方法
- 消息队列在VB.NET数据库开发中的应用
- VB.NET窗体操作技巧两则
- VB.NET中的多线程开发