منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معلومة ::: ProgressBar - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : معلومة ::: ProgressBar (/showthread.php?tid=5284)

معلومة ::: ProgressBar - RaggiTech - 06-10-12

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



اداة ProgressBar

أو شريط التقدم - وهى الاداة الشهيرة التى نستخدمها لنعرف المستخدم ما الذى تم انجازه الان من العملية بنسبة كام من كام



==========================================


أهم الخواص

خاصية Minimum - Maximum

ونحدد فيها الحد الأعلي والحد الأدني لقيمة ProgressBar


كود :
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100

معلومة ::: ProgressBar - RaggiTech - 06-10-12

الخاصية Step


نحدد منها معدل الزيادة لاداة ProgressBar أثناء التقدم




كود :
ProgressBar1.Step = 10

معلومة ::: ProgressBar - RaggiTech - 06-10-12

اضف أداة ProgressBar اجعل خصائص ProgressBar هكذا




كود :
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
ProgressBar1.Step = 10


اضف زر أمر وضع له هذا الكود


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For I As Integer = 0 To 59

ProgressBar1.PerformStep()

Application.DoEvents()

System.Threading.Thread.Sleep(1000)
Next

End Sub

معلومة ::: ProgressBar - RaggiTech - 06-10-12

يمكن أن نجعل الخاصية Style لاداة ProgressBar لها ثلاث تحركات للتقدم




كود :
ProgressBar1.Style = ProgressBarStyle.Blocks


كود :
ProgressBar1.Style = ProgressBarStyle.Continuous


كود :
ProgressBar1.Style = ProgressBarStyle.Marquee

معلومة ::: ProgressBar - RaggiTech - 06-10-12

بالنسبة لو كان Style هو Marquee


يمكن الاستفادة منه فى الانتظار



حيث نجد أن شريط التقدم يتحرك مثلما يتحرك لوجو بداية تشغيل ويندوز بالضبط

ويمكن تسريع هذا التحرك


اكتب هذا الكود فى كود تحميل الفورم



كود :
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100

ProgressBar1.Style = ProgressBarStyle.Marquee

ProgressBar1.MarqueeAnimationSpeed = 100