04-06-19, 07:45 PM
شوف اخي الكريم باذن الله ساعمل مثال بسيط عن تحميل عدد معين من صفحات المنتدى وساستخدم باذن الله Backgoundworker و Progressbar و Lable
طبعا استخدام او تمرير قيم لاي اداة في مسار آخر ممنوع في تقنية الـThreading (اتحدث بتعبيري الخاص) والحل بناء اجراءات خاصة بالمثال.
إنتظر...
حتى لا اتاخر عليك هذا مثال بسيط للفكرة:
المهم الفكرة وليس التطبيق لان التطبيق يختلف انظر لكيفية مناداة الاجراءات
لاحظ lbl1,lbl2
هذي ببساطة كل الفكرة
طبعا استخدام او تمرير قيم لاي اداة في مسار آخر ممنوع في تقنية الـ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)
هذي ببساطة كل الفكرة
المرفق مثال بسيط جدا قم بتفحص الكود بشكل دقيق فكله يعتمد التعامل مع Thread