مثال مرفق (اسئلة وإختيار الإجابه)

بسيطة

أنت مستخدم حلقة for على الشكل التالي

        For x As Integer = 1 To 985000

            ProgressBar1.Value += 1
        Next

و البرنامج لن يستجيب حتى انتهاء حلقة for هنا و الحل هو باستخدام الأمر Application.DoEvents()

فتصبح حلقة for كالتالي

        For x As Integer = 1 To 985000

            ProgressBar1.Value += 1
            Application.DoEvents()

        Next

جرب وخبرني شو بيصير معك

بس في نقطة وهي بدل استخدام حلقة for لتحريك البروجرس بار ليش ما تستخدم أداة Timer وهيك بيصير فيك تتحكم بالوقت بدقة أكبر وبيكون برنامج أسهل

حيث يمكنك استخدام كود شبيه بالتالي بعد إضافة Timer للمشروع فيصبح كود الزر

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Enabled Then
            Button1.Enabled = False
        End If
        ProgressBar1.Visible = True
        Timer1.Enabled = True
    End Sub

وكود المؤقت

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1
        If ProgressBar1.Value >= 1 Then
            Timer1.Enabled = False
            MsgBox("إنتهت فترة الإختبار")
            ProgressBar1.Value = 1
            Me.Close()
        End If
    End Sub

بارك الله فيك اخي samerselo حلو كثير

ولكن بعد التعديل والضغط على ابدأ الإختبار البروقرس بار لا يعمل.

واليك المرفق.

proggg.rar

تفضل هذا البرنامج يعمل بعد التجريب

كان يوجد خطأ بسيط في إجرائية الـموقت التي وضعتها سابقا وهذه الاجرائية المصححة

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1
        If ProgressBar1.Value >= ProgressBar1.Maximum Then
            Timer1.Enabled = False
            MsgBox("إنتهت فترة الإختبار")
            ProgressBar1.Value = 1
            Me.Close()
        End If
    End Sub

ثم أن القيم التي استخدمتها أنت من أجل المؤقت و البروجرس بار كبيرة وسيحتاج البروجرس بار وقتا طويلا حتى يتحرك

proggg.rar

مشكووووووووور والله يعطيك العافيه.