[سعود]

شوف اخي الكريم باذن الله ساعمل مثال بسيط عن تحميل عدد معين من صفحات المنتدى وساستخدم باذن الله Backgoundworker و Progressbar و Lable
طبعا استخدام او تمرير قيم لاي اداة في مسار آخر ممنوع في تقنية الـThreading (اتحدث بتعبيري الخاص) والحل بناء اجراءات خاصة بالمثال.
إنتظر...

---

حتى لا اتاخر عليك هذا مثال بسيط للفكرة:

PHP كود :

'إجراء اسناد قيمة لاداة الليبل الاولى
    Private Sub lbl1(ByVal l As String)
        If lbltitle.InvokeRequired Then
            lbltitle.Invoke(New Action(Of String)(AddressOf lbl1), l)
        Else
            lbltitle.Text = l
        End If
    End Sub


    'إجراء اسناد قيمة لاداة الليبل الثانية
    Private Sub lbl2(ByVal l As String)
        If lblprog.InvokeRequired Then
            lblprog.Invoke(New Action(Of String)(AddressOf lbl2), l)
        Else
            lblprog.Text = l
        End If
    End Sub



    'إجراء اسناد قيمة لاداة Progressbar 
    Private Sub prp(ByVal l As Integer)
        If ProgressBar1.InvokeRequired Then
            ProgressBar1.Invoke(New Action(Of Integer)(AddressOf prp), l)
        Else
            ProgressBar1.Value = l
        End If
    End Sub

    'اجراء تفعيل زالزر الاول
    Private Sub btn1(ByVal l As Boolean)
        If Button1.InvokeRequired Then
            Button1.Invoke(New Action(Of Boolean)(AddressOf btn1), l)
        Else
            Button1.Enabled = l
        End If
    End Sub

    'اجراء تفعيل زالزر الثاني
    Private Sub btn2(ByVal l As Boolean)
        If Button2.InvokeRequired Then
            Button2.Invoke(New Action(Of Boolean)(AddressOf btn1), l)
        Else
            Button2.Enabled = l
        End If
    End Sub 


---

المهم الفكرة وليس التطبيق لان التطبيق يختلف انظر لكيفية مناداة الاجراءات

PHP كود :

           Dim url As String = "http://vb4arb.com/vb/thread-" & i & ".html"
            lbl1(url)
            lbl2(i & " __ " & ProgressBar1.Maximum) 


لاحظ lbl1,lbl2
هذي ببساطة كل الفكرة

---

المرفق مثال بسيط جدا قم بتفحص الكود بشكل دقيق فكله يعتمد التعامل مع Thread