مع أشرطة التمرير
أشرطة التمرير تستخدم لتغيير القيمة زيادة أو نقصان سوف نأخذ مثالاً لهذه الأداة أفضل من الشرح .
لهذه الأداة نوعان :
شريط تمرير أفقي : HScroll
شريط تمرير عمودي : VScroll
بعد تجهيز الفورم أضف إليه ثلاث أشرطة تمرير إما أفقي أو عمودي . لنفرض أنك وضعت أشرطة أفقية HScroll .
أسمائها على التتالي: HScroll3 HScroll2 HScroll1
ثم أضف إلى الفورم صندوق الصورة Picture1
ولاتنسى الأدوات Label والتي تعني النصوص التي بجانب كل شريط تمرير
أنقر فوق الفورم نقرتين وأضف الكود التالي في حدث 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) |
بعد تشغيل البرنامج جرب تبديل أشرطة التمرير ولاحظ الحدث
هذا الشرح يبين الخصائص الأساسية لأشرطة التمرير
اسم الأداة
Name
الفاعلية
Enabled
قيمة التبديل الكبرى
LargeChange
الحد الأقصى
Max
الحد الأدنى
Min
قيمة التبديل الصغرى
SmallChange
القيمة الإفتراضية
Value
البعد عن الحافة اليسرى
Left
مؤشر الماوس
MousePointer
الأيقونة التي تثمل مؤشر الماوس
MouseIcon
الإتجاه من اليمين لليسار
RightToLeft
ترتيب Tab
TabIndex
إيقاف الTab
TabStop
ما سيظهر عند وضع الماوس فوقها
ToolTipText
Tag
Tag
البعد عن حافة النافذة العليا
Top
مرئي أو مخفي
Visible
العرض
Width