Vb.net Thread线程实例

﹏ヽ暗。殇╰゛Y 2022-09-30 06:26 121阅读 0赞

Imports System.Threading

Class Class1

'Public Shared Sub Main(ByVal args() As String)  
    '    'Application.Run(New Form1())  
    '    '' Get the path that stores favorite links.  
    '    Shell("notepad", AppWinStyle.NormalFocus)  
    'End Sub 'Main

Shared t As Thread  
    Public Shared Sub Main()  
        Console.WriteLine("Main thread: Start a second thread.")  
        ' The constructor for the Thread class requires a ThreadStart  
        ' delegate.  The Visual Basic AddressOf operator creates this  
        ' delegate for you.  
        t = New Thread(AddressOf ThreadProc1)

' Start ThreadProc.  Note that on a uniprocessor, the new  
        ' thread does not get any processor time until the main thread  
        ' is preempted or yields.  Uncomment the Thread.Sleep that  
        ' follows t.Start() to see the difference.  
        Console.WriteLine("ThreadState:" + CStr(t.ThreadState))  
        t.Start()  
        Console.WriteLine("ThreadState:" + CStr(t.ThreadState))  
        Thread.Sleep(0)  
        Dim i As Integer  
        Console.WriteLine("Main thread:---START")  
        For i = 1 To 4  
            Console.WriteLine("Main thread: Do some work.")  
            Threading.Thread.Sleep(0)  
        Next

Console.WriteLine("Main thread: Call Join(), to wait until ThreadProc ends.")  
        Console.WriteLine("ThreadState:" + CStr(t.ThreadState))  
        t.Join()  
        Console.WriteLine("ThreadState:" + CStr(t.ThreadState))  
        Console.WriteLine("Main thread: ThreadProc.Join has returned.  Press Enter to end program.")  
        Console.ReadLine()  
        t = New Thread(AddressOf ThreadProc2)

' Start ThreadProc.  Note that on a uniprocessor, the new  
        ' thread does not get any processor time until the main thread  
        ' is preempted or yields.  Uncomment the Thread.Sleep that  
        ' follows t.Start() to see the difference.  
        Console.WriteLine("ThreadState:" + CStr(t.ThreadState))  
        t.Start()  
        Console.WriteLine("ThreadState:" + CStr(t.ThreadState))  
        t.Join()  
        Console.WriteLine("ThreadState:" + CStr(t.ThreadState))  
        t = New Thread(AddressOf ThreadProc3)  
        t.Start()  
        t.Join()  
        Console.WriteLine("Main thread: ThreadProc.Join has returned.  Press Enter to end program.")  
        Console.ReadLine()  
    End Sub

Public Shared Function ThreadProc1() As Integer  
        Console.WriteLine("ThreadProc1---START")  
        For i As Integer = 0 To 10  
            Console.WriteLine(CStr(i))  
        Next  
        Console.WriteLine("ThreadProc1---END")  
    End Function

Public Shared Function ThreadProc2() As Integer  
        Console.WriteLine("ThreadProc2---START")  
        For i As Integer = 0 To 10  
            Console.WriteLine(CStr(i))  
        Next  
        Console.WriteLine("ThreadProc2---END")  
    End Function

Public Shared Function ThreadProc3() As Integer  
        Console.WriteLine("ThreadProc3---START")  
        For i As Integer = 0 To 10  
            Console.WriteLine(CStr(i))  
        Next  
        Console.WriteLine("ThreadProc3---END")  
    End Function

End Class 'MyProcess

控件台输出结果：

Main thread: Start a second thread.  
ThreadState:8  
ThreadProc1---START  
0  
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
ThreadProc1---END  
ThreadState:0  
Main thread:---START  
Main thread: Do some work.  
Main thread: Do some work.  
Main thread: Do some work.  
Main thread: Do some work.  
Main thread: Call Join(), to wait until ThreadProc ends.  
ThreadState:16  
ThreadState:16  
Main thread: ThreadProc.Join has returned.  Press Enter to end program.  
ThreadState:8  
ThreadState:0  
ThreadProc2---START  
0  
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
ThreadProc2---END  
ThreadState:16  
ThreadProc3---START  
0  
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
ThreadProc3---END  
Main thread: ThreadProc.Join has returned.  Press Enter to end program.

ThreadState:8 =Unstart(没运行)

ThreadState:0=running(线程运行)

ThreadState:16=stoped (线程停止)