Imports System Imports System.Threading
'准备在主线程外再启动第2线程运行ThreadProc()方法 Public Class ThreadExample ' ThreadProc()方法将会在第2线程启动后被调用 ' 它将会循环10次,并把结果输出到控制台,也就是Dos模式下显示 ' 运行结果后,剩余的时间让线程挂前指定的时间,也就是Thread.Sleep(500),500代表毫秒,1000毫秒=1秒 Public Shared Sub ThreadProc() Dim i As Integer For i = 1 To 10 Console.WriteLine("ThreadProc方法正在第2线程办第 {0} 件事", i) ' 控制台显示了以上信息后,接下来就是让当前线程挂前指定的时间 Thread.Sleep(500) Next End Sub
'更多原创VB.Net学习笔记 来自lob.cn乐博网,大家一起来讨论
Public Shared Sub Main()
Console.WriteLine("主线程:准备启动第2线程啦.") ' 在线程类的结果中需要委派让线程启动;VB.Net提供的AddressOf操作可以完成这个任务 Dim t As New Thread(AddressOf ThreadProc) '记住,这里调用的方法不能带参数的
'需要在方法中带参数,可以在乐博网搜索其他文章有详细说明
' 在t.Start()新线程开始后,可以调用个Thread.Sleep(5000),挂起时间自定,看看有什么不同 t.Start() Thread.Sleep(50)
Dim i As Integer For i = 1 To 4 Console.WriteLine("主线程:这个时候主线程也可以做点事啦,不能闲着.") Thread.Sleep(10) Next
Console.WriteLine("主线程: 调用Join()方法,判断第2线程程调用ThreadProc方法是不是已经结束了.") t.Join() Console.WriteLine("主线程: Join方法答复:完工啦,可以退出了.") Console.ReadLine() End Sub End Class
|