تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب شرح لا ستخدام background worker لعمل thread و لتجنب Not responding
#1
انا عملت مشروع  و الحمد الله اشتغل بس كان فيه مشكلة  not responding
فانا عاوز اعرف ازاى احلها عن طريق background worker
و ده مثال بسيط عاوز الاقى ليه حل

Imports System.Threading
Public Class Form1
Dim m As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
10:
TextBox1.Text = m
m = m + 5
BackgroundWorker1.RunWorkerAsync()
GoTo 10

End Sub

Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Thread.Sleep(1000)
End Sub
End Class
الرد
تم الشكر بواسطة:
#2
سلام

كود :
Imports System.Threading

Public Class Form1

    Dim m As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not BackgroundWorker1.IsBusy Then BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Delegate Sub Control()

    Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Do
            Dim Invoker As New Control(Sub()
                                           TextBox1.Text = m
                                       End Sub)
            TextBox1.Invoke(Invoker, Nothing)
            m = m + 5
            Thread.Sleep(1000)
        Loop
    End Sub

End Class

موفقين
متغيب
الرد
تم الشكر بواسطة: nowaytorun
#3
(24-07-15, 06:33 PM)الطالب كتب : سلام

كود :
Imports System.Threading

Public Class Form1

   Dim m As Integer = 0

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Not BackgroundWorker1.IsBusy Then BackgroundWorker1.RunWorkerAsync()

   End Sub

   Private Delegate Sub Control()

   Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       Do
           Dim Invoker As New Control(Sub()
                                          TextBox1.Text = m
                                      End Sub)
           TextBox1.Invoke(Invoker, Nothing)
           m = m + 5
           Thread.Sleep(1000)
       Loop
   End Sub

End Class

موفقين

الف شكر .................الكود تمام
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يجب اضافة رقم اضافي لرقم الفاتورة لتجنب التكرار Rabeea Qbaha 4 264 29-10-18, 06:13 PM
آخر رد: elgokr
  [سؤال] هل ممكن طريقه بسيطه لعمل شات بين الاداره والفروع بقاعده بيانات MYSQL dametucorazon 9 505 27-07-18, 12:01 AM
آخر رد: elgokr
  [سؤال] اريد طريقه بسيطه لعمل اضافه لكل محتويات الداتا جريد الى قاعده البيانات MYSQL dametucorazon 6 367 23-07-18, 12:24 AM
آخر رد: dametucorazon
  [كود] احتاج فكرة لعمل تقسيم الصنف الى حبة شدة كرتون فراس الغزي 2 275 20-07-18, 02:44 AM
آخر رد: sendbad100
  [سؤال] اريد الطريقه الصحيحه لعمل FilterRow للداتا جريد ثم حفظ البيانات من الداتا جريد لقاعده dametucorazon 6 454 30-06-18, 12:45 AM
آخر رد: dametucorazon
  [سؤال] هل من سبيل لحفظ ملف csv يحتوي علي لغه عربيه لعمل استراد لقاعده البيانات ؟ dametucorazon 5 1,220 29-06-18, 06:40 AM
آخر رد: elgokr
  ما هي افضل طريقة لعمل جدول مجموعات متفرعة قاسم 6 618 02-06-18, 02:13 AM
آخر رد: sendbad100
  [كود] طلب كود لعمل مجلد لكل حالة issamsaidd 13 923 03-05-18, 12:38 AM
آخر رد: issamsaidd
  ملفات dll لعمل قوائم جانبية السيد الجوهري 0 212 02-05-18, 01:33 PM
آخر رد: السيد الجوهري
  مساعده في كود لعمل نسخه تجريبيه emamtron2014 3 453 29-03-18, 04:50 PM
آخر رد: emamtron2014

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


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