[اليوم السابع]

اريد كود عند الضغط علي البوتن والبروجراس بار =100 يعيد الشرط وتشغل البروجروس بار من الاول

[اسامه الهرماوي]

السلام عليكم...
تفضل:

كود :

if prog1.value=100 then
الكود المراد تنفيذه
end if

[اليوم السابع]

(03-11-19, 02:46 AM)اسامه الهرماوي كتب : السلام عليكم...
تفضل:

كود :

if prog1.value=100 then
الكود المراد تنفيذه
end if

اخويا اسامه انا اقصد كود كل ما اضغط علي الزر البروجوس بار يشتغل من اول وجديد

[asemshahen5]

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Minimum = 0
        ProgressBar1.Step = 1
        Dim newThread As New Thread(AddressOf start)
        If newThread.ThreadState = ThreadState.Running Then
            newThread.Suspend()
            newThread.Abort()
        End If
        newThread.Start()
    End Sub
    Sub start()
        Do
            If ProgressBar1.Value = 100 Then
                Exit Do
            ElseIf ProgressBar1.Value < 100 Then
                Application.DoEvents()
                Thread.Sleep(100)
                Invoke(Sub() ProgressBar1.Increment(+1))
            End If
        Loop
    End Sub