منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في تعديل كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في تعديل كود (/showthread.php?tid=41534)

مشكلة في تعديل كود - نيمو - 24-05-22

السلام عليكم

كود :
Private Sub updateProgressBar()
           Dim method As MethodInvoker = Nothing
           If Not MyBase.InvokeRequired Then
               Me.progressBar1.Value += 1
           Else
               If (method Is Nothing) Then
                   method =  => Me.progressBar1.Value++
               End If
               Me.progressBar1.Invoke(method)
           End If
       End Sub
الكود فيه خطا  
كود :
 method =  => Me.progressBar1.Value++

كيف يتم تعديل بطريقة صحيحة

RE: مشكلة في تعديل كود - سعود - 24-05-22

وعليكم السلام ورحمة الله وبركاته

الطريقة اللي اعرفها:

PHP كود :
Private Sub updateProgressBar(ByRef p As ProgressBar)
        Dim pr As ProgressBar = DirectCast(p, ProgressBar)
        If pr.InvokeRequired Then
            pr.Invoke(Sub() pr.Value += 1)
        Else
            pr.Value += 1
        End If
    End Sub 


RE: مشكلة في تعديل كود - نيمو - 24-05-22

نعم بالضبط اشتغل مشكور اخي للمساعدة