تقييم الموضوع :
  • 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

موفقين

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] كود لعمل نسخة احتياطية من Sql Server DB موجودة على شبكة داخلية dr.programming 0 258 28-09-23, 05:29 PM
آخر رد: dr.programming
Thumbs Up توضيح لعمل السيريال الخاص بالمنتجات devpos 1 223 10-09-23, 05:49 PM
آخر رد: Asem2
  مساعدة : أبحث عن كود لعمل Scroll using buttons maestro13 1 464 08-06-23, 06:38 AM
آخر رد: سعود
  الطريق لعمل التقارير على فيجوال ستديو ٢٠٢٢ mostafa nada 4 1,419 18-06-22, 11:31 AM
آخر رد: رضوان الجماعي
  هل يجب اضافة رقم اضافي لرقم الفاتورة لتجنب التكرار Rabeea Qbaha 6 3,858 25-02-22, 03:18 AM
آخر رد: Taha Okla
Exclamation [VB.NET] محتاج فكرة لعمل كود او دالة Random anasghost 17 2,953 29-11-21, 09:32 AM
آخر رد: معاند الحظ
  [سؤال] هل من سبيل لحفظ ملف csv يحتوي علي لغه عربيه لعمل استراد لقاعده البيانات ؟ dametucorazon 6 13,813 13-11-21, 12:49 AM
آخر رد: _11Basil
  هل يوجد كود برمجى او طريقه لعمل هذا فى الداتا جريد فيو خالد كامل1 3 1,189 08-10-21, 07:04 PM
آخر رد: خالد كامل1
  [سؤال] سؤال في background warker حسن الجلب 1 743 22-09-21, 12:57 AM
آخر رد: asemshahen5
  [سؤال] شرح اداه background warker حسن الجلب 3 1,317 18-05-21, 01:16 AM
آخر رد: سعود

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


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