+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال بسيط جدا (/showthread.php?tid=31962)
سؤال بسيط جدا - اليوم السابع - 03-11-19
اريد كود عند الضغط علي البوتن والبروجراس بار =100 يعيد الشرط وتشغل البروجروس بار من الاول
RE: سؤال بسيط جدا - اسامه الهرماوي - 03-11-19
السلام عليكم...
تفضل:
كود :
if prog1.value=100 then
الكود المراد تنفيذه
end ifRE: سؤال بسيط جدا - اليوم السابع - 03-11-19
(03-11-19, 02:46 AM)اسامه الهرماوي كتب : السلام عليكم...
تفضل:
كود :
if prog1.value=100 then
الكود المراد تنفيذه
end if
اخويا اسامه انا اقصد كود كل ما اضغط علي الزر البروجوس بار يشتغل من اول وجديد
RE: سؤال بسيط جدا - asemshahen5 - 03-11-19
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