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

当前位置:

首页 > 编程开发 > VBScript >

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)

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)

End Sub

代码中使用了Join方法，使主线程等待sample1_Thread完成后再运行：

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

学习更多vb.net知识，请参看vb.net 教程目录

————————————————

原文链接：https://blog.csdn.net/UruseiBest/article/details/87892020

栏目列表