|
阅读：1413回复：0
VB.NET多线程开发实例
<TABLE width=620 align=center>
<TR> <TD class=a14>VB.NET（Visual Basic.NET）是为适应Microsoft .NET框架的需要，对Visual Basic进行了重大改造后的开发工具。它比Visual Basic 6.0功能更强大，更易于使用。其中最重要的变化就是对象继承，在VB.NET中，所有可管理的类型都衍生自System.Object。作为编程工具，最重要的一个特性就是垃圾碎片的回收，它由CLR（Common Language Runtime）进行控制，并提供更好的内存管理功能。通用的类型定义可以提供更好的互操作性和协同工作能力，因此，VB.NET显得更强大、更具可靠性。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>在VB.NET中，大多数CLR内建的类型都在System名字空间里已经定义了。比如：System.Object, System.Int32, 和 System.String。要注意的是：一个名字空间可能嵌在另一个名字空间内，象System.Data里就有System.Data.DataSet的类。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>代表是CLR编程模型很重要的一个新概念。代表是一个特殊类型的可管理的类，当你创建一个代表的实例时，你必须提供一个带有匹配签名的方法执行的地址，一旦创建了一个代表的实例，调用方法将变的很容易。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>过去，我们利用VB开发多线程的应用程序时，是一件很令人痛苦的事，经常是多线程的程序运行是会变成多错误的程序！但在VB.NET中，这种状况已经大为改观。现在，我们利用VB.NET处理多线程和利用JAVA处理多线程一样简单了。下面我们就举个例子，来看看VB.NET的多线程吧！</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>下面是多线程程序threadtest.vb的代码：</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>imports System</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>imports System.Threading</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>public class AClass</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>public sub Method1()</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>Dim i as integer </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>For i = 1 to 100</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>Console.Writeline("这是类AClass方法method1的内容",i)</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>next</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>end sub</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>public sub Method2()</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>Dim i as integer </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>For i = 1 to 100</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>Console.Writeline("这是类AClass方法method2的内容",i)</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>next</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>end sub</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>end class</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>public class ThreadTest</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>public shared sub Main()</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>dim obj as new aclass</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>dim th1,th2 as thread</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>th1=new Thread(new ThreadStart(addressof obj.method1))</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>th1.start</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>th2=new Thread(new ThreadStart(addressof obj.method2))</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>th2.start</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>dim i as integer</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>For i= 1 to 100</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>Console.WriteLine("Main方法里的内容",i) </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>Next </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>end sub</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>end class</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>现在，来让我们剖析一下上面的例子：</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>1.我们创建了我们自己的类AClass，并创建了两个方法：Method1和Method2。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>2.这两个方法很简单，只有一个For循环，向输出设备输出一些信息。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>3.我们还定义了另外一个类ThreadTest来使用上面创建的类AClass。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>4.在Main()方法中，我们创建了类Thread的实例。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>5.类Thread可以在System.Threading名字空间里得到，它定义了处理线程的属性和方法。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>6.在类Thread的构造器中，我们使用了类ThreadStart，类ThreadStart是一个代表，标志着当一个线程开始时就开始执行定义的方法。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>7.为了执行定义的方法，我们实际调用的是线程的Start()方法。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>8用VBC来编译上面的程序：</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>vbc /out:threadtest.exe threadtest.vb</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>9.运行编译后的程序，我们将会看到我们定义的两个方法和main()方法的混合输出，这就说明每一个方法都在自己的线程下运行。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>10.除了上面的方法，线程还有下面常用的方法：</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>Stop():停止线程的运行。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>Suspend()：暂停线程的运行。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>Resume()：继续线程的运行。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>Sleep()：停止线程一段时间（单位为毫秒）。</TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14> </TD></TR></TABLE> <TABLE width=620 align=center> <TR> <TD class=a14>上面只是VB.NET多线程的一个简单的例子，希望对大家有所启发！</TD></TR></TABLE> |
|
|
