• فيجوال بيسك
  • 2090
  • 20-3-2008
    • أشرطة التمرير تستخدم لتغيير القيمة زيادة أو نقصان سوف نأخذ مثالاً لهذه الأداة أفضل من الشرح . لهذه الأداة نوعان : شريط تمرير أفقي : HScroll شريط تمرير عمودي : VScroll بعد تجهيز الفورم أضف إليه ثلاث أشرطة تمرير إما أفقي أو عمودي . لنفرض أنك وضعت أشرطة أفقية HScroll . أسمائها على التتالي: HScroll3 HScroll2 HScroll1 ثم أضف إلى الفورم صندوق الصورة Picture1 ولاتنسى الأدوات Label والتي تعني النصوص التي بجانب كل شريط تمرير

    i

    أنقر فوق الفورم نقرتين وأضف الكود التالي في حدث 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)
    بعد تشغيل البرنامج جرب تبديل أشرطة التمرير ولاحظ الحدث

    i


    هذا الشرح يبين الخصائص الأساسية لأشرطة التمرير اسم الأداة
    Name الفاعلية
    Enabled قيمة التبديل الكبرى
    LargeChange الحد الأقصى
    Max الحد الأدنى
    Min قيمة التبديل الصغرى
    SmallChange القيمة الإفتراضية
    Value البعد عن الحافة اليسرى
    Left مؤشر الماوس
    MousePointer الأيقونة التي تثمل مؤشر الماوس
    MouseIcon الإتجاه من اليمين لليسار
    RightToLeft ترتيب Tab
    TabIndex إيقاف الTab
    TabStop ما سيظهر عند وضع الماوس فوقها
    ToolTipText Tag
    Tag البعد عن حافة النافذة العليا
    Top مرئي أو مخفي
    Visible العرض
    Width
    وتمنياتي للجميع بالتوفيق
    كن أول من يقيم الموضوع
    12345