أداة الصورة المحدودة :

قدمت فيجوال بيسك أداة لتحميل صور متنوعة وتتمتع بعدة خصائص ولكن أهمها الخاصية Picture ، وتلك الخاصية تمكنك من تحميل صورة مختزنة في ملف وتلك الصورة يمكن أن تكون من عدة أنواع :

وهي كافية لعرض معظم الصور التي قد تجدها في بيئة ويندوز  ويمكنك أن تحمل الصورة في طور التصميم وفي طور التشغيل .

شكل الأداة علي

ضع أداة صورة محدودة علي نافذة مشروع ، وفي طور التصميم اختر الخاصية Picture وانقر الخانة المجاورة لها وسوف تنبثق نافذة المربع الحواري التالية :

وسوف تظهر لك الأنواع الأربع من الصور انقر إحداها وانقر الزر Open علي الفور سوف يتم تحميل الصورة إلي أداة الصورة المحدودة ، وبالطبع فأداة الصورة لها خواص الحجم والموقع .

الآن لنبدأ مشروع جديد :

وفي إجراء حدث التقر لزر الأوامر  CmdExit اكتب الشفرة التالية :

Private Sub CmdExit_Click()

End

End Sub

وفي حدث التغير لشريط التمرير VSCPos أكتب الشفرة التالية :

Private Sub VSCPos_Change()

'تحريك قمة الصورة إذا كان زرها محققاً

 If ChkElavant.Value = Checked Then ImgElevant.Top = VSCPos.Value

 If ChkDynasor.Value = Checked Then ImgDynasor.Top = VSCPos.Value

 If ChkBaloon.Value = Checked Then ImgBaloons.Top = VSCPos.Value

 If ChkIcRun.Value = Checked Then ImgIcRun.Top = VSCPos.Value

 End Sub

وفي إجراء حدث النقر لأداة التحقق   ChkElavant أكتب :

Private Sub ChkElavant_Click()

'إظهار صورة الفيل إذا كان زره محققاً

If ChkElavant.Value = Checked Then ImgElevant.Visible = True

If ChkElavant.Value = Unchecked Then ImgElevant.Visible = False

End Sub

وفي إجراء حدث النقر لأداة التحقق   ChkIcRun أكتب :

Private Sub ChkIcRun_Click()

'إظهار التزلق الجليدي إذا كان زره محققا

If ChkIcRun.Value = Checked Then ImgIcRun.Visible = True

If ChkIcRun.Value = Unchecked Then ImgIcRun.Visible = False

End Sub

وفي إجراء حدث النقر لأداة التحقق   ChkBaloon أكتب :

Private Sub ChkBaloon_Click()

'إظهار البالونات إذا كان الزر محققا

If ChkBaloon.Value = Checked Then ImgBaloons.Visible = True

If ChkBaloon.Value = Unchecked Then ImgBaloons.Visible = False

End Sub

وفي إجراء حدث النقر لأداة التحقق   ChkDynasor أكتب :

Private Sub ChkDynasor_Click()

'إظهار صورة الديناصور إذا كان زره محققاً

If ChkDynasor.Value = Checked Then ImgDynasor.Visible = True

If ChkDynasor.Value = Unchecked Then ImgDynasor.Visible = False

End Sub

شغل البرنامج والعب مع شريط التمرير بتحريكه ولاحظ ما يطرأ علي الصور  ، هل يمكنك أن تحرك الصور بدون تعليم أداة التحقق الخاصة بها ؟