التعامل مع أشرطة التمرير

الناقل : mahmoud | المصدر : www.kl28.com

 

التعامل مع أشرطة التمرير



أشرطة التمرير تستخدم لتغيير القيمة زيادة أو نقصان سوف نأخذ مثالاً لهذه الأداة أفضل من الشرح .

لهذه الأداة نوعان :

شريط تمرير أفقي : HScroll

شريط تمرير عمودي : VScroll



بعد تجهيز الفورم أضف إليه ثلاث أشرطة تمرير إما أفقي أو عمودي . لنفرض أنك وضعت أشرطة أفقية HScroll .

أسمائها على التتالي: HScroll3 HScroll2 HScroll1

ثم أضف إلى الفورم صندوق الصورة Picture1

ولاتنسى الأدوات Label والتي تعني النصوص التي بجانب كل شريط تمرير

im_vb/scrol.GIF

أنقر فوق الفورم نقرتين وأضف الكود التالي في حدث Load :

 

HScroll1.Min = 0
HScroll1.Max = 250
HScroll1.SmallChange = 30
HScroll1.LargeChange = 50

HScroll2.Min = 0
HScroll2.Max = 250
HScroll2.SmallChange = 30
HScroll2.LargeChange = 50

HScroll3.Min = 0
HScroll3.Max = 250
HScroll3.SmallChange = 30
HScroll3.LargeChange = 50

شرح الأسطر السابقة : وتعني تحديد القيمة الصغرى والكبرى لأشرطة التمرير وتحديد سرعة التمرير>



أضف الكود التالي إلى شريط التمرير الأول:

Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

الكود التالي للشريط الثاني:

Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

الكود التالي للشريط الثالث :

Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

بعد تشغيل البرنامج جرب تبديل أشرطة التمرير ولاحظ الحدث

im_vb/scrol1.GIF

هذا الشرح يبين الخصائص الأساسية لأشرطة التمرير

اسم الأداة
Name

الفاعلية
Enabled

قيمة التبديل الكبرى
LargeChange

الحد الأقصى
Max

الحد الأدنى
Min

قيمة التبديل الصغرى
SmallChange

القيمة الإفتراضية
Value

البعد عن الحافة اليسرى
Left

مؤشر الماوس
MousePointer

الأيقونة التي تثمل مؤشر الماوس
MouseIcon

الإتجاه من اليمين لليسار
RightToLeft

ترتيب Tab
TabIndex

إيقاف الTab
TabStop

ما سيظهر عند وضع الماوس فوقها
ToolTipText

Tag
Tag

البعد عن حافة النافذة العليا
Top

مرئي أو مخفي
Visible

العرض
Width


وتمنياتي للجميع بالتوفيق