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

مثال اعجبني

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

السلام عليكم

هذا مثال نزلته من النت اعجبني ،، وهو استخدام دالة SendMessage الرهيبة

لكم هذا المثال

تحياتي

progressbar_colors.zip

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#2

شكرا اخ prof_1982 على المثال لكن ممكن شرح كويس لكيفية استخدام البروجريس بار؟؟

يعنى ازاى فى بداية برنامجى اخلية يظهر وبعد ما يخلص تحميل يظهر المشروع

#3

شكرا اخ prof_1982 على المثال لكن ممكن شرح كويس لكيفية استخدام البروجريس بار؟؟

يعنى ازاى فى بداية برنامجى اخلية يظهر وبعد ما يخلص تحميل يظهر المشروع

بسم الله الرحمن الرحيم

{وقل اعملوا فسيرى الله عملكم ورسوله والمؤمنون}

صدق الله العظيم

#4

السلام عليكم

البروجرس بار هو شريط حالة للمهمة الحالية ،، له 3 خصائص مهمة جدا منها يمكننا التحكم بكيفة عمله والخصائص الثلاث هي :

-1 Max

2- Min

3- Value

Max= وهي القيمة العظمى لشريط الحالة :

مثلا : لو اردنا نسخ مجموعة ملفات من مجلد الي اخر ونريد معرفة عدد الملفات التي تم نسخها ومقدار التقدم في النسخ

اولا نسند الي الخاصية Max عدد الملفات الكلي وليكن 500 ملف

- نسند الي الخاصية Min 1 اي سنبدا العد من 1 الي 500

اذا كنت تستخدم جملة For لنسخ الملفات : فالصيغة العامة

FilesCount= File1.listCount

fot CopyF = 1 to FilesCount	
	FileCopy OldPath ,NewPath
	Progressbar1.value = CopyF 
Doevents
next

'File1 = اداة عرض الملفات

هذا شرح مبسط للاداة : اسف لقلة قدرتي علي التعبير بشكل افضل

سوف اقوم بوضع امثلة لتوضيح الفكرة

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

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

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