الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Progress Bar

مغلق
بدأه ahmedx44 في 19 أكتوبر 2004 · 1 رد · 444 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم..

كل عام والجميع بخير إن شاء الله.. وتقبل الله صيامنا وقيامنا وصلاتنا..

سؤالي بسيط.. هو عن كيفية جعل الـ Progress Bar يقوم بملء خاصية Value له بحسب الطول الذي تم تحميله من العملية الحالية التي يقوم بها المعالج.. أنا أعلم طبعا كيف أضيفه وأملأ خاصية Value له تلقائيا بواسطة Timer أو Loop مثلا.. ولكني أريد مثلا أن أقوم بضغط زر به أكواد طويلة ويستغرق تنفيذه وقت طويل.. فيقوم بإظهار شريط Progress Bar ويظل يملأ قيمته إلى أن تنتهي العملية بالكامل.. مثله مثل أي برنامج نرى به هذه الخاصية.. وأشير إلى ملحوظة "هي أن البرنامج يقف مؤقتا إلى أن يتم تنفيذ الأكواد الطويلة,, فتقف معه جميع الأدوات الموجودة في الفورم".. أرجو أن أكون قد أوضحت السؤال.. هو بسيط إن شاء الله ولكني عجزت عن تنفيذ هذا المراد..

أنتظر الرد.. وجزاكم الله خيرا..

تحياتي لكم :-)

وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ

موقع رائع للقرآن الكريم والتدريب على الحفظ

#2

مرحبا ...

يمكنك الاستفادة من الكود التالي:::

Private Sub Command1_Click()

ff = 100

For Stp = 1 To 100
Stp = Stp + 1
rr = (Stp / ff) * 100
ProgressBar1.Value = rr

Next Stp


End Sub

ارجو ان يكون الكود مفهوم لك...حيث تلاحظ ان قيمة Value تتغير تبعاً لعدد مرات تكرار الحلقة حيث ان مع دورة من الحلقة تزداد قيمة Stp ،وكما تلاحظ انه قد حددنا ff=100 لكي نستطيع الحصول على نسبة مئوية مثلاً في اخر حلقة تكون قيمة Stp =100 وقيمة ff =100 عندها تكون Value =100...وهكذا

يمكن ان تستخدم هذه الكود ضمن كود اخر مثلاً 

Private Sub Command8_Click()
ProgressBar1.Value = 0
بداية طود تنفيذ مهمة معينة
......
......
......
حسب تقديرك مثلاً ""هنا تم انجاز 10% من المهمة""فتضع هذا الكود
ProgressBar1.Value = 10
.......
......
......
......
وهكذا حت ينتهي كود المهمة...
.....
نهاية الكود مثلاً

ProgressBar1.Value = 100


ملاحظة النقاط تدل على اومر المهمة....

ونحن في المساعدة...

هذا الموضوع مغلق.

مواضيع مشابهة