vb.net 教程 6-6 简单的多线程程序

野性酷女 2022-09-11 02:27 51阅读 0赞

为了体现多线程运行的特点，暂时使用控制台代码讲解，不使用窗体，请在新建项目时选中控制台应用程序。

确保在Module外添加：

Imports System.Threading  
为了简化讲解，请在sub main中加入如下代码：

Sub main()  
        Call samplex()  
    End Sub  
其中samplex的x是从0开始的整数，也对应了调用不同的方法。

做好以上准备后，开始第一个多线程程序：

Sub sample0()  
        Dim sample0\_Thread As New Thread(AddressOf sample0\_printI)  
        sample0\_Thread.Start()  
        Console.Write("End")  
    End Sub  
   
    Sub sample0\_printI()  
        For i As Integer = 0 To 100  
            Console.Write(i.ToString & "，")  
            Thread.Sleep(10)  
        Next  
    End Sub  
如前所述，sub main 中对应的请修改为 call sample0。

先分析下具体的代码：

1、Dim sample0\_Thread As New Thread(AddressOf sample0\_printI)  
这里创建了一个线程，并将sample0\_printI方法的地址传递了进去，也就是这个线程运行的是sample0\_printI方法。  
2、sample0\_Thread.Start()  
启动线程sample0\_Thread  
3、Thread.Sleep(10)  
让当前的线程挂起10毫秒，可以让系统有时间处理别的线程。当然，这里不是必须的，在本教程后面的代码中会有体会。

程序的想法是在控制台界面输出0至100，完成后输出"End"表示完成。事实上我们还没有来得及看输出了些什么，控制台就关闭了，因为程序已经结束了。

在sample0方法中，console.write("End") 后面加上 Console.ReadKey()，这下我们可以看清楚输出的内容：

结果End被输出到了最前面。这是我们不希望出现的结果。

修改后的代码如下：

Sub sample1()  
        Dim sample1\_Thread As New Thread(AddressOf sample1\_printI)  
        sample1\_Thread.Start()  
        sample1\_Thread.Join()  
        Console.Write("End")  
        Console.ReadKey()  
    End Sub  
    Sub sample1\_printI()  
        For i As Integer = 0 To 100  
            Console.Write(i.ToString & "，")  
            Thread.Sleep(10)  
        Next  
    End Sub  
代码中使用了Join方法，使主线程等待sample1\_Thread完成后再运行：

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参看[vb.net教程][vb.net]目录  
————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/