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