[vb.net]简单多线程实例

1.Imports System  
2.Imports System.Threading  
3.  
4.  
5.Module Module1  
6.  
7.    Sub Main()  
8.  
9.        Dim mythread1 As Thread  
10.        Dim mythread2 As Thread  
11.        Dim mythread3 As Thread  
12.        ‘创建线程对象  
13.        mythread1 = New Thread(AddressOf mythreadrun)  
14.        mythread2 = New Thread(AddressOf mythreadrun)  
15.        mythread3 = New Thread(AddressOf mythreadrun)  
16.        Console.WriteLine(Now.ToLongTimeString & "线程对象创建完毕,开始执行线程")  
17.        ‘执行线程  
18.        mythread1.Start("线程1")  
19.        mythread2.Start("线程2")  
20.        mythread3.Start("线程3")  
21.        ‘等待线程完成  
22.        mythread1.Join()  
23.        mythread2.Join()  
24.        mythread3.Join()  
25.        ‘线程执行完毕  
26.        Console.WriteLine(Now.ToLongTimeString & "线程执行完毕!")  
27.    End Sub  
28.    Public Sub mythreadrun(ByVal data As Object)  
29.        Console.WriteLine(data & "," & Now.ToLongTimeString & "执行")  
30.    End Sub  
31.End Module