كيف اجعل اداة ProgressBar1 تتحرك عند تنفيذ البرنامج

السلام عليكم ورحمة الله و بركاته

بالنسبة للProgressBar يمكنك التحكم بعدد المربعات الموجودة فيه و زيادتها بواسطة الإجراء التالي:

ProgressBar1.Increment(1)

ProgressBar1اشرك اخي على هذه المعلومة وانا قد جربيتها لكنني اريد ان اعمل مثل اول ما ينفتح الفورم بع التفيذ اريد الـ

تتحرك يعين تزيد اكثر من مرة تستمر في التحريك مثل لغة فيجوال بيسك دوت نت 2005 عن بداية فتحه تظهر لك نفس الشي الل انا اريد ومعليش على الازعاج

لجعله يتحرك أول ما ينفنح الفورم

قم بمناداة الprogressbar فى الfolm load وقم بإعطائه قيمة معينة و لتكن br.increment (20);

ولجعله يتحرك و يزيد مع شىء معين فى الفورم قم بتحديد الزيادة له وناديه فى الموضع الذى تريد

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Enabled = True

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.Value = ProgressBar1.Value + 10

If Me.ProgressBar1.Value = 100 Then

Me.ProgressBar1.Value = 0

ProgressBar1.Value = ProgressBar1.Value + 10

End If

End Sub

السلام عليكم و رحمة الله وبركاته

أرجوا من الأخ Boris أن يسمح لي بشرح محتوى الكود

اقتباس

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub

هذا الكود هو لتفعيل الTimer التي تزيد عدد المربعات في الProgressBar ويمكنك التحكم بالسرعة بالتحكم بالقيمة Interval

اقتباس

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 10
If Me.ProgressBar1.Value = 100 Then
Me.ProgressBar1.Value = 0
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub

أما هذا الكود فهو يعبر عن الزيادة التي تحدث في الProgressBar عند كل دقة من دقات الTimer وعندما تصبح الValue = 100 يعيد القيمة إلى الصفر لكي يبدأ بتعبأة المربعات من جديد

هذا و الله أعلم

اشكرك اخي العزيز ابو المنذر واشكر ايضا Boris!! على تفاعلكم والله يكثرفي علمكم وعلم كل انسان هكذا .وانا كنت متأخر في الرد سامحوني لاني كان معاي عمل ..ومتواصلين يا طيبين