vb.net thread 暫停-研究(1)

參考來源:How to create, start, stop, suspend and resume thread using Thread class in VB.net 

--
我自己測寫的

Imports System.Threading

Public Class Form1

    Dim t As Thread
    Dim st As ThreadStart
    Dim count As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        st = New ThreadStart(AddressOf  countFunction )
        t = New Thread(st)

        MessageBox.Show("建立")
    End Sub

    Private Sub countFunction()
        While True
            count = (count + 1)
            If count > 10000 Then
                count = 0
            End If
        End While
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            t.Start()
            MessageBox.Show("啟動")
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try          
            t.Abort()
            t.Join()
            MessageBox.Show(("停止,累計: " + count.ToString))
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            t.Suspend()
            MessageBox.Show(("暫停,累計: " + count.ToString))
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Try
            t.Resume()
            MessageBox.Show("繼續")
        Catch ex As Exception

        End Try
    End Sub
End Class