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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

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

确保在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教程目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。