مثال مفيد لأيقاف و استكمال ال Theard

السلام عليكم ورحمه الله وبركاته

مثال مفيد جدا فى أيقاف و استكمال ال Theard
يمكنك استخدامه فى ايقاف و استكمال التحميل او فى اى عمليه تتطلب الأيقاف و الأستكمال

PHP كود :

Dim Th As New Threading.Thread(AddressOf Counter)
    Private Delegate Sub SetText()

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Th.Start()
    End Sub

    Private Sub Counter()
        Do While True
            Dim Invoker As New SetText(Sub()
                                           Label1.Text = Val(Label1.Text) + 1
                                       End Sub)
            Me.Invoke(Invoker, Nothing)
            Threading.Thread.Sleep(1000)
        Loop
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Button2.Text = "Resume" Then
            Th.Resume()
            Button2.Text = "Stop"
        Else
            Th.Suspend()
            Button2.Text = "Resume"
        End If
    End Sub 