تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال مفيد لأيقاف و استكمال ال Theard
#1

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

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

PHP كود :
Dim Th As New Threading.Thread(AddressOf Counter)
    Private 
Delegate Sub SetText()

    Private 
Sub Button1_Click(sender As ObjectAs EventArgsHandles 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(InvokerNothing)
            
Threading.Thread.Sleep(1000)
        
Loop
    End Sub

    
Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        
If Button2.Text "Resume" Then
            Th
.Resume()
            
Button2.Text "Stop"
        
Else
            
Th.Suspend()
            
Button2.Text "Resume"
        
End If
    
End Sub 

الرد }}}
تم الشكر بواسطة: Mostafa Saad


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم