Make your own free website on Tripod.com

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

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

Bitmaps

Gif

Metafile

JPEG

ICON

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

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

نافذة المشروع

نافذة الأدوات

 

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

 

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

 

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

قيمتها

الخاصية

الأداة

خروج

Caption

Command1

CmdExit

Name

 

Icon15.Ico

Picture

Image1

ImgElevant

Name

 

Icon16.Ico

Picture

Image2

ImgDynasor

Name

 

Icon07.Ico

Picture

Image3

ImgBaloons

Name

 

Icon06.Ico

Picture

Image4

ImgIcRun

Name

 

ChkElavant

Name

Check1

فيل

Caption

 

True

RightToLeft

 

Right

Alginment

 

 ChkDynasor

Name

Check2

ديناصور

Caption

 

True

RightToLeft

 

Right

Alginment

 

ChkBaloon

Name

Check3

بالونات

Caption

 

True

RightToLeft

 

Right

Alginment

 

ImgIcRun

Name

Check4

تزلق الجليد

Caption

 

True

RightToLeft

 

Right

Alginment

 

VSCPos

Name

VScroll1

152

Max

 

8

Min

 

8

Value

 

1

SmallChange

 

10

LargChange

 

 

وفي إجراء حدث التقر لزر الأوامر  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

 

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

 
صفحة البداية ما الجديد حاليا ؟ فيجوال بيسك للتطبيقات موضوعات متقدمة فيجوال بيسك لتلاميذ المدارس

أرسل استفسارك أو تعليقك  الآن

أرسل رسالتك أو استفسارك الآن

أكتب ملاحظتك أو استفسارك أو تعليقك أو ابحث عن مواقع فيجوال بيسك أخري و غيره.....

حقوق الطبع والنسخ محفوظة  © 2000 مركز الكمبيوتر التربوي
آخر تعديل: April 18, 2001