السلام عليكم
الموضوع سهل كما سترون لكنه تطلب مني الجهد الجهيد تصوروا!!!!!!!
ساستخدم label لمعرفة مستوى التقدم بدلا من progress bar
المسالة هي ان تقسم ال width الكلي الخاص بالليبل على عدد العمليات التي لديك والناتج هو سيكون التقدم في كل مرة .....
()private sub timer1_timer
file1.listindex=file1.listindex+1
a=label1.width\file1.listcount
label2.width=label2.width & a
end sub
طبعا المثال هو عبارة عن اداة filelist وتحتوي على عدة ملفات للتجربة طبعا و label1 هو الشريط باللون الابيض والذي هو ثابت اما label2 فهو الشريط الازرق المتحرك ولاعطاء البرنامج صفة احترافية اخرى وهي عداد بالنسبة المئوية نضع الاتي
label1=" " & label2.width\50 & "%"
label2=" " & label2.width\50 & "%"
وطبعا يجب ان تكون خاصية forecolor ل label2 هي الابيض واعذروني على الاشياء المتاخرة التي اضعها
