《《Visual Basic.NET程序设计教程》-陈语林-电子教案 p10》由会员分享，可在线阅读，更多相关《《Visual Basic.NET程序设计教程》-陈语林-电子教案 p10（16页珍藏版）》请在金锄头文库上搜索。
1、第十章 多线程应用程序的开发,.NET框架的一个新特性就是，它包含了一个标准的创建自由线程应用程序的方法。 支持建立自由线程（free-threaded）的应用。自由线程允许Visual Basic.NET应用程序同时独立执行多个任务，因而提高了应用程序的性能和灵敏性。,10.1 进程和线程,每个运行的Windows应用程序都有一个进程，它在逻辑上代表了这个应用程序的地址空间，DLL可以加载到这个空间里，变量也可以存储在这里。要完成任何工作，一个进程必须有一个执行的路径，或者说线程。 自由线程（free threaded）允许Visual Basic.NET应用程序同时独立执行多个任务，因而提
2、高了应用程序的性能和灵敏性。,.NET框架中包含的System.Threading命名空间专门负责实现多线程功能，而且操作相当简单，只需要利用System.Threading命名空间中的Thread类，就具有了实现自由线程的属性和方法。 Thread类的每一个实例都代表了应用程序进程空间里一个不同的线程。,10.2 多线程应用程序,【例10-1】多线程的应用程序示例。 10.2.1 如何创建一个新线程 要实现多线程必须引用命名空间System.Threading，因此，先输入下列代码： Imports System.Threading,一个无限循环的代码如下： Private Sub Back
3、groundProcess( ) 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),10.2.2 控制线程,如果你想让数据处理的速度变慢，可以在其中放入一个sleep方法的调用，代码如下： Private Sub BackgroundProcess( ) Dim i As Integer=1
4、 Do While True ProgressBar1.Value=i i+=1 If i= 10000 Then i=1 Thread.CurrentThread.Sleep(10) Loop End Sub,10.2.3 线程的生存期,线程启动后，发生下列事件线程将终止： 它运行的方法执行完毕。 包含线程的过程终止。 在线程对象上调用Abort方法。 在上面的示例中，它是一个无限的循环，因此必须调用Thread.Abort方法，向程序中添加如下代码： t1.Abort（ ）,Public Class Form1 Inherits System.Windows.Forms.Form Dim
5、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 =
6、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) Han
7、dles 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.Objec
8、t, ByVal e As System.EventArgs) Handles ButtonStopReceive.Click t2.Abort() End Sub,10.3 为线程传递参数,在编程时，还需要用到多线程的许多复杂特性。其中的一个问题是如何将程序的数据由线程类的构造函数传入或者传出，也就是说，对于放到另外一个线程中的过程，你既不能传参数给它，也不能由它返回值。这是由于传入到线程构造函数的过程是不能拥有任何的参数或者返回值的。 为了解决这个问题，最简单的技巧是将方法封装到一个类中，这样方法的参数就可使用类中的字段。,【例10-2】计算两个数的和。代码如下： Imports Syst
9、em.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
10、 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 = Text
11、Box1.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,10.4 同步线程,同步线程最简单但也是效率最低的方法就是检查线程的IsAlive属性。线程启动前，其IsAlive属性为False；而当线程处于活动状态时，该属性为True。这个手段不像事件那样可靠，并且会抵消由自由线程带来的一部分好处。 同步化线程应用程序的较好方法是使用事
12、件，每个线程都可以向主程序发出事件，通知自己的状态。运行于独立线程中的每个过程拷贝，都可以返回用以标识特定线程的惟一标识符。应用程序的其他线程外部分，可以处理这些事件和信息。,为了进行同步，Visual Basic.NET提供了SyncLock声明和Thread.Join方法。 Visual Basic.NET使用SyncLock语句，以同步化表达式中的语句，确保不同线程不会同时执行同一条语句。当进入SyncLock代码块时，将为指定表达式调用共享方法System.Monitor.Enter，这将阻塞代码的运行，直到特定线程具有由表达式返回的对象的独占锁为止 。,使用SyncLock语句，以同步化表达式中的语句，确保不同线程不会同时执行同一条语句。当进入SyncLock代码块时，将为指定表达式调用共享方法System.Monitor.Enter，这将阻塞代码的运行，直到特定线程具有由表达式返回的对象的独占锁为止。 SyncLock可得到一个对象引用的惟一锁，只要将该对象传送给SyncLock就行了。通过得到这个惟一锁，可以确保多个线程不会访问共享的数据或者在多个线程上执行的代码。,
