29-07-13, 09:33 PM
(آخر تعديل لهذه المشاركة : 29-07-13, 09:40 PM {2} بواسطة mohamed samy.)
السلام عليكم ورحمه الله وبركاته
مثال مفيد جدا فى أيقاف و استكمال ال 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