VB.NET中的多线程开发

2008-04-09 04:42:14来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  引言

  对于使用VB6的开发者而言,要在程序中实现多线程(multi-thread)功能,一般就是使用Win32 API调用。但凡是进行过这种尝试的开发者都会感觉到实现过程非常困难,而且总是会发生些null terminated strings GPF的错误。可是有了VB.NET,一切烦恼都成为过去。

  自由线程(free threaded)

  在VB6中,我们只能对组件设置多线程模式,这通常就是单元模式的多线程。对于单元线程组件而言,组件中的每个可执行方法都将在一个和组件相联系的线程上运行。这样,我们就可以通过创建新的组件实例,使得每个实例都有一个相应的线程单元,从而达到每个正在运行的组件都有它自己的线程,多个组件可以在各自的单元中同时运行方法。

  但是如果在程序的Session或Application控制范围内,我们不会使用单元线程组件,最佳的也是唯一的选择是自由线程组件。可是仅仅有VB6还不行,我们需要VC 或Java的帮助。

  现在好了,VB.NET改善了这些功能,.NET SDK中包含的System.Threading名字空间专门负责实现多线程功能,而且操作相当简单:只需要利用System.Threading名字空间中的Thread类,就具有了实现自由线程的属性和方法。
  一个创建自由线程的例子解析

  我们来看看下面的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中创建多线程应用的过程。你会感到这是多么的简单,但同时实现了非常强大的功能。使用多线程功能,我们可以创建更好的商业和数据层组件,并且,凭借我们的想像力,将之发挥到更好。

156

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:对注册表进行编程的“捷径”

下一篇:体验Visual Basic升级向导