[RaggiTech]

كاتب الموضوع : AhmedEssawy

كود :

With ProgressBar1
.Minimum = 1
.Maximum = 100000
.Value = 1
.Step = 1
For i As Integer = .Minimum To .Maximum
' Perform one step of the action being tracked.
.PerformStep()
Next i
End With

تحدد الخاصية Maximum عدد المراحل ، أو Minimum فهو الرقم الأقل ، الخاصية Value تحدد القيمة الحالية أما الخاصية PerformStep فتقوم بزيادة مرحلة حسب المحدد من خاصية Step .