[ناجي إبراهيم]

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

افتح نافذة الـ Components بإحدى الطرق التالية:

- من القائمة Project اختر الأمر Components.
- أو -
- انقر بالزر الأيمن للفأرة على صندوق الأدوات و اختر الأمر Components.
- أو -
- اضغط Ctrl+T.

في نافذة الـ Components ابحث عن البند Microsoft Windows Common Controls 6.0 و قم بتحديده (اجعل بجانبه إشارة صح) ثم انقر الزر OK.

ستضاف إلى صندوق الأدوات مجموعات مكونات منها الـ ProgressBar. أضفه إلى الـ Form كما تضيف أي مكون آخر.

للـ ProgressBar عدة خصائص منها:

الخاصية Min لتحديد القيمة الصغرى للنطاق - مثلاً صفر.
الخاصية Max لتحديد القيمة الكبرى للنطاق - مثلاً 100.
الخاصية Value لتحديد القيمة التي وصل إليها.
الخاصية Orientation لتحديد شكله - أفقي أو رأسي.
الخاصية Scrolling لتحديد نمط التدرج - إما قياسي (Standard) حيث يكون التدرج على شكل كتل مستقلة، أو ناعم (Smooth) حيث يكون التدرج كلون واحد متصل.

* فكرة استعماله هي أن تجعل قيمته (Value) المبدئية مساوية للقيمة الصغرى (Min) صفر مثلاً. و تجعل القيمة الكبرى (Max) مساوية لعدد الخطوات التي ستقوم بها أو متناسبة مع حجم البيانات التي ستتعامل معها. ثم كلما أنجزت خطوة أو عالجت مجموعة من البيانات تزيد قيمة الخاصية Value.

كود :

If ProgressBar1.Value < ProgressBar1.Max Then
    ProgressBar1.Value = ProgressBar1.Value + 1
End If

نرجو الاستفادة و السلام.