.NET框架的一个新特性就是,它包含了一个标准的创建自由线程应用程序的方法。 自由线程(free-threaded)允许Visual Basic.NET应用程序同时独立执行多个任务,因而提高了应用程序的性能和灵敏性。
进程和线程
每个运行的Windows应用程序都有一个进程,它在逻辑上代表了这个应用程序的地址空间,DLL可以加载到这个空间里,变量也可以存储在这里。要完成任何工作,一个进程必须有一个执行的路径,或者说线程。
.NET框架中包含的System.Threading命名空间专门负责实现多线程功能,而且操作相当简单,只需要利用System.Threading命名空间中的Thread类,就具有了实现自由线程的属性和方法。Thread类的每一个实例都代表了应用程序进程空间里一个不同的线程。
多线程应用程序
如何创建一个新线程
Imports System.Threading‘要实现多线程必须引用命名空间
’一个无限循环的代码如下:
Private Sub BackgroundProcess( )
Dim i As Integer=1
Do while True
ProgressBar1.Value=i
i+=1
If i =10000 Then i =1
Loop
End Sub
‘声明了一个新的线程
Dim t1 As Thread
t1=New Thread (AddressOf Me.BackgroundProcess)
控制线程
如果你想让数据处理的速度变慢,可以在其中放入一个sleep方法的调用:
Private Sub BackgroundProcess( )
Dim i As Integer=1
Do While True
ProgressBar1.Value=i
i+=1
If i= 10000 Then i=1
Thread.CurrentThread.Sleep(10)
Loop
End Sub
线程的生存期
线程启动后,发生下列事件线程将终止:它运行的方法执行完毕/包含线程的过程终止/在线程对象上调用Abort方法。
在上面的示例中,它是一个无限的循环,因此必须调用Thread.Abort方法:t1.Abort( )
Public Class Form1
Inherits System.Windows.Forms.Form
Dim t1 As Thread
Dim t2 As Thread
Private Sub BackgroundProcess()
Dim i As Integer = 1
Do While True
ProgressBar1.Value = i
i += 1
If i = 10000 Then i = 1
Loop
Thread.Sleep(1)
End Sub
Private Sub ReceiveDataProcess()
Dim i As Integer = 1
Do While True
ProgressBar2.Value = i
i += 1
If i = 10000 Then i = 1
Loop
End Sub
Private Sub ButtonBackProc_Click(ByVal Sender As System.Object,ByVal e As System.EventArgs) Handles ButtonBackProc.Click
t1 = New Thread(AddressOf Me.BackgroundProcess)
t1.Start()
End Sub
Private Sub ButtonForntProc_Click(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles ButtonForntProc.Click
t2 = New Thread(AddressOf Me.ReceiveDataProcess)
t2.Start()
End Sub
Private Sub ButtonStopProc_Click(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStopProc.Click
t1.Abort()
End Sub
Private Sub ButtonStopReceive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStopReceive.Click
t2.Abort()
End Sub
为线程传递参数
在编程时,还需要用到多线程的许多复杂特性。其中的一个问题是如何将程序的数据由线程类的构造函数传入或者传出,也就是说,对于放到另外一个线程中的过程,你既不能传参数给它,也不能由它返回值。这是由于传入到线程构造函数的过程是不能拥有任何的参数或者返回值的。
为了解决这个问题,最简单的技巧是将方法封装到一个类中,这样方法的参数就可使用类中的字段。
计算两个数的和。代码如下:
Imports System.Threading
Public Class Form1
Inherits System.Windows.Forms.Form
Function sum(ByVal a1 As Single, ByVal a2 As Single) As Single
Return a1 + a2
End Function
Public Class SumClass
Public a1 As Single
Public a2 As Single
Public sum As Single
Public Event ThreadComplete(ByVal sum As Single)
Public Sub CalcSum()
sum = a1 + a2
RaiseEvent ThreadComplete(sum)
End Sub
End Class
Dim t As Thread
Dim WithEvents mysum As SumClass
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
mysum = New SumClass
t = New Thread(AddressOf mysum.CalcSum)
mysum.a1 = TextBox1.Text
mysum.a2 = TextBox2.Text
t.Start()
End Sub
Sub SumEventHandler(ByVal sum As Single) Handles mysum.ThreadComplete
TextBox3.Text = sum
End Sub
End Class
同步线程
同步线程最简单但也是效率最低的方法就是检查线程的IsAlive属性。线程启动前,其IsAlive属性为False;而当线程处于活动状态时,该属性为True。这个手段不像事件那样可靠,并且会抵消由自由线程带来的一部分好处。
同步化线程应用程序的较好方法是使用事件,每个线程都可以向主程序发出事件,通知自己的状态。运行于独立线程中的每个过程拷贝,都可以返回用以标识特定线程的惟一标识符。应用程序的其他线程外部分,可以处理这些事件和信息。
为了进行同步,Visual Basic.NET提供了SyncLock声明和Thread.Join方法。
Visual Basic.NET使用SyncLock语句,以同步化表达式中的语句,确保不同线程不会同时执行同一条语句。当进入SyncLock代码块时,将为指定表达式调用共享方法System.Monitor.Enter,这将阻塞代码的运行,直到特定线程具有由表达式返回的对象的独占锁为止 。
使用SyncLock语句,以同步化表达式中的语句,确保不同线程不会同时执行同一条语句。当进入SyncLock代码块时,将为指定表达式调用共享方法System.Monitor.Enter,这将阻塞代码的运行,直到特定线程具有由表达式返回的对象的独占锁为止。
SyncLock可得到一个对象引用的惟一锁,只要将该对象传送给SyncLock就行了。通过得到这个惟一锁,可以确保多个线程不会访问共享的数据或者在多个线程上执行的代码。