VB.NET多线程实例
indoc.in
VB.NET多线程实例
在VB 6(0中，如果想实现多线程功能则必须使用Win32 API调用，但是这种调用经常会引发一些不可预知的错误。而VB(NET支持自由线程的应用，(NET SDK中包含的System(Threading名字空间专门负责实现多线程功能，而且操作相当简单，只需要利用System(Threading名字空间中的Thread类，就具有了实现自由线程的属性和方法。例如:
简单的多线程程序
Imports System
t引入线程名字空间
Imports System(Threading
Public Class clsMultiThreading
’在类clsMultiThreading中创建一个简单的方法，循环lO次
Public Sub OwnThread()
Dim intCounter as integer
For intCounter=1 to 10
Console?WriteLine(”Inside the class:”,intCounter(ToString())
Next
End Sub
End C1ass
Public ClasS TestThreading工nVB
’当此程序运行的时候上述定义的方法被执行
PubliC Shared Sub Main()
Dim intCounter as integer
Dim objMT as clsMultiThreading=new clsMultiThreadinq()
Dim obj NewThread as Thread
objNewThread。new Thread(new ThreadStart(AddressOf
objMT(OwnThread))
obj NewThread(Start()
-执行循环和显示信息
For intCounter=10 to 15
Console?WriteLine(”Inside the Sub Main:”,
intCounter(ToString())
Next
End Sub
End C1asS
上述代码的一开始是引入名字空间System和System(Threading，然后创建一个公共类clsMultiThreading。这个类中包含一个公共方法
文章
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
版权归原作者所有 VICHU.NET
indoc.in OwnThreadO，它执行了10次for循环，每次都在屏幕上显示信息。创建这个类的目的是为了以单个线程的方式从其他类中调用OwnThread()方法。接着，创建另外一个类TestThreadinglnVB，它包含一个方法Main()。当最后生成的可执行文件运行时，将启动Main()。在方法Main()中，创建了一个类clsMultiThreading的实例，这样就可以调用它的方法OwnThread0-j"。这样，通过传递方法OwnThread0的地址方式创建了线程类实例，实际上等于创建了一个新的线程，并且告知线程运行时要执行的方法。
文章内容版权归原作者所有 VICHU.NET
浙公网安备 33021202002483