منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

كود :

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++

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

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

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

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 

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نيمو

سعود

نيمو