03-11-19, 02:36 AM
03-11-19, 02:46 AM
السلام عليكم...
تفضل:
تفضل:
كود :
if prog1.value=100 then
الكود المراد تنفيذه
end if03-11-19, 02:57 AM
(03-11-19, 02:46 AM)اسامه الهرماوي كتب : [ -> ]السلام عليكم...
تفضل:
كود :
if prog1.value=100 then
الكود المراد تنفيذه
end if
اخويا اسامه انا اقصد كود كل ما اضغط علي الزر البروجوس بار يشتغل من اول وجديد
03-11-19, 06:15 AM
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