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

موفقين

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كتابت كود لعمل نافذه hano 2 83 04-11-16, 07:45 PM
آخر رد: silverlight
  [سؤال] عدد الجداول في المطلوبه لعمل سندات قبض وسندات صرف اليوم مبتدئة وغداً محترفة 1 76 02-10-16, 04:37 PM
آخر رد: أبو عمر
  [VB.NET] برنامج ممتاز لعمل Setup لبرنامجك - Advanced Installer Kian Tech 2 171 19-09-16, 03:26 AM
آخر رد: shwehdi4pc
  سؤال : ملأ TreeView من خلال الاداة Background Worker ابراهيم النعيمي 2 127 03-09-16, 09:11 PM
آخر رد: ابراهيم النعيمي
  [سؤال] أفضل برنامج لعمل تحزيم أو سيتب لبرامجنا المصممة بـ vb.net2015 DR.YASER 2 314 15-04-16, 03:57 AM
آخر رد: silverlight
  [سؤال] طريقة لعمل نسخة احتياطية كلما اغلق البرنامج احمد عبد الحكيم 1 268 23-02-16, 01:30 AM
آخر رد: boudyonline
  [سؤال] شباب طريقة لعمل check على اسم ملف فى فولدر على الكمبيوتر احمد عبد الحكيم 4 320 13-02-16, 03:39 PM
آخر رد: thevest_knight
  [سؤال] اريد سورس لعمل سريال لبرنامجى ramygamalvb 7 370 05-02-16, 01:12 PM
آخر رد: ramygamalvb
  [سؤال] هل من طريقة لعمل autocomplete لمربع النص من قاعدة البيانات احمد عبد الحكيم 2 232 25-01-16, 02:10 AM
آخر رد: احمد عبد الحكيم
  هل من طريقة لعمل select all row datagrid احمد عبد الحكيم 3 288 18-01-16, 04:15 AM
آخر رد: الماجيك مسعد

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


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