أصنع شريط التقدم (progress bar) فى فيجول باسيك 6.0 بنفسك

[shekoforever]

السلام عليكم و رحمة الله و بركاته
اليوم أحضرت لكم فكرة بسيطة وهى
شريط تقدم progress bar بأداتى text و تايمر و Label
أولاً ضع على الفورم بشكل مناسب
1-أداتى text
2- تايمر
3- أداة عنوان label
ثم ضع هذا الكود فى الفورم

و لكن هكذا مثلاً
http://www.momeen.org/up/uploads/33fcc2bd99.jpg

و بعدين ضع هذا الكود

http://www.momeen.org/up/uploads/9ccf31b2b2.jpg

نسخ و لصق


Private Sub Form_Load()
Text2.Text = "1"
Label1.Caption = "%"
Timer1.Interval = 20
End Sub

Private Sub Timer1_Timer()
Text1.Text = Text1.Text + "|"
Text2.Text = Text2.Text + 1
If Text2.Text = 100 Then
Timer1.Enabled = False
End If
End Sub

و جرب و أخبرنى
و هناك أيضاً طريقة أفضل من هذه لأن الtext لن تمتلىء إلى الآخر إذا كان طولها أكبر
لذلك عدل الكود بالكود التالى
مع إضافة picture box
Private Sub Form_Load()
Text2.Text = "1"
Label1.Caption = "%"
Timer1.Interval = 20
Picture1.Appearance = 0
Picture1.AutoRedraw = True
End Sub

Private Sub Timer1_Timer()
Text2.Text = Text2.Text + 1
'============================
Picture1.Cls
Picture1.Print Text2.Text & " %"
Picture1.Line (0, 0)-((Val(Text2.Text) / 100 * Picture1.Width), Picture1.Height), vbBlue, BF
'============================
If Text2.Text = 100 Then
Timer1.Enabled = False
End If
End Sub

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

[hamata00]

شكرا ليك يامان
بص انا هعمل دي اداه زي ادوات الاكتف سكين وكده

[hamata00]

ايه رأيك؟
اعملها؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[shekoforever]

ايه رأيك؟
اعملها؟؟؟؟؟؟؟؟؟؟؟؟؟؟
يا أخى سهل تعملها و أنا ذكرتها حتى نقلل من الأدوات
و لكن لا يهم أنتظرها منك بفارغ الصبر
:D

[CRANSH]

الله يعطيك ألف عافية

[maggime]

شكرا أخي والله يعطيك العافية

[moreb85]

الله يبارك فيك ويجزيك عنا كل خير

اريد شرح استخدام الطريقة هذي او الاداة الافتراضية بروجرس بار عندما اريد فتح ملف كما ارجو شرح طريقة عمل مربعات حوار مخصصة للتثبيت بدل الحورات الافتراضية
مثلا
عندما يدخل المستخدم السي دي او يبدا بفتح البرنامج اللي هو السيت اب ابغى طريقة تخصني اضع بها شروطي وارقام سرية وهكذا

ولك حالص تحياتي

[Aboud Aboud]

شكـــــــــــرا لك اخي

[The KinGSofT]

http://img175.imageshack.us/img175/4520/99881818cn0qo3.gif




http://img227.imageshack.us/img227/9232/840b5ec8e5pv8.gif
مشكور جدااااااااا على الموضوع المميز الجميل و على هذا التألق في سماء منتدانا الغالي ننتظر جديدك بفارخ الصبر
بصراحة أنت مبدع متميز
واصل تميزك و إنشاء الله يكون خير
شكرا

http://img440.imageshack.us/img440/599/277efb7cb9vo4.png


تحياتــــــــــــــــ للجميع ـــــــــــــــــــــــــي




The KinGSofT