[alkndy]

اريد زر تشغيل دوارة وايقافها بزر اخر 
مثلا لو انا ارسل رسائل من قائمة اسماء واستخدم دوارة الفور اريد اشغل الدوارة بضغطع زر واوقفها موقت بضغط زر اخر كيف الطريقة تعبت وانا ابحث عن هذا الكود vb .net

[Taha Okla]

-- افتح مشروع جديد وأضف عليه الأدوات التالية :
1 - BackgroundWorker1
2 - Label1
3 - Button1
4 - Button2

وانسخ الكود التالي لمشروعك :

كود :

Dim i As Integer = 0, j As Integer = 0, Puse As Boolean = False
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
   Puse = False
   For i = j To 20000
       UpdateLabel(i)
       If Puse = True Then Exit For
   Next
End Sub

Private Delegate Sub UpdateLabelInvoker(ByVal text As String)
Private Sub UpdateLabel(ByVal text As String)
   If Me.Label1.InvokeRequired Then
       Me.Label1.Invoke(New UpdateLabelInvoker(AddressOf UpdateLabel), text)
   Else
       Me.Label1.Text = text
   End If

End Sub


Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   Button1.Text = "Do >>"
   Button2.Text = "Puse"
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If BackgroundWorker1.IsBusy <> True Then
       BackgroundWorker1.RunWorkerAsync()
   End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
   Puse = True
   j = i
End Sub

- شغل البرنامج وجربه. 
- لاحظ كيف يعمل الكود ...

طور الكود ليناسب عملك ..