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

موفقين

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة من اهل الخبرة اريد كود لعمل فورم نقل او تحويل الاصناف من مخزن الى مخزن احمد الامين 8 264 24-08-17, 06:23 AM
آخر رد: احمد الامين
  عدم ظهور صورة background MDIparent ndjakoub 2 88 14-08-17, 12:49 PM
آخر رد: أبو نوره
  [VB.NET] شرح لعمل برنامج اختبار الكتروني mmarn 1 90 22-07-17, 04:17 PM
آخر رد: Amir_alzubidy
  [VB.NET] كيفية تشغيل اكتر من Thread فى نفس الوقت ؟ الماجيك مسعد 10 348 28-04-17, 04:32 PM
آخر رد: Fantastico
  [سؤال] سؤال بخصوص BackGround worker khalid475 1 180 22-03-17, 08:47 AM
آخر رد: abdualla
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 320 18-02-17, 02:19 PM
آخر رد: Amrjamil
  كتابت كود لعمل نافذه hano 2 234 04-11-16, 07:45 PM
آخر رد: silverlight
  [سؤال] عدد الجداول في المطلوبه لعمل سندات قبض وسندات صرف اليوم مبتدئة وغداً محترفة 1 278 02-10-16, 04:37 PM
آخر رد: أبو عمر
  [VB.NET] برنامج ممتاز لعمل Setup لبرنامجك - Advanced Installer Kian Tech 2 355 19-09-16, 03:26 AM
آخر رد: shwehdi4pc
  سؤال : ملأ TreeView من خلال الاداة Background Worker ابراهيم النعيمي 2 386 03-09-16, 09:11 PM
آخر رد: ابراهيم النعيمي

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


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