سلام عليكم ورحمة الله وبركاته أعضاء وزوار هذا المنتدى سوف نتعلم كيف نقوم بعرض الصور بطريقة جذابة]
في البداية نفتح مشروع جديد وليكن بالاعدادات التالية كما في الصورة

ندرج فيه 5 أزرار و4صور كما توضح الصورة

بشرط أن تكون للصور الأربع نفس الاعدادات وأنا أخذت الاعدادات التي في الصورة

بالنسبة للأزرار يكون ترتيبها كما هو موضح في الصورة

نأتي الآن للأكواد
بالنسبة للأزرار
الزر الأول


الزر الثاني

نضع الكود دائما في اون كليك
الزر الثالث :

الزر الرابع :

الزر الخامس :

نرجع الآن الى كود خصائص الصفحة في الحدث اون شاو نكتب هذا الكود
كماهو موضح في الصورة

ثم نأتي الى قلوبال فنكشن ونضع هذا الكود كما في الصورة

وبهذا نكون قد أنهينا أتمنى أن تكون الفكرة قد وصلت والسلام عليكم ورحمةالله وبركاته
في البداية نفتح مشروع جديد وليكن بالاعدادات التالية كما في الصورة

ندرج فيه 5 أزرار و4صور كما توضح الصورة

بشرط أن تكون للصور الأربع نفس الاعدادات وأنا أخذت الاعدادات التي في الصورة

بالنسبة للأزرار يكون ترتيبها كما هو موضح في الصورة

نأتي الآن للأكواد
بالنسبة للأزرار
الزر الأول


الزر الثاني

نضع الكود دائما في اون كليك
كود:
FlowImage.MoveOne("Image1", 450, 25);

كود:
FlowImage.HideOneShowNext("Image1", "Image2", 450, 25);

كود:
FlowImage.HideAll({"Image1","Image2","Image3","Image4","Image5"}, 450, 25);

كود:
FlowImage.HideOneShowNext("Image1", "Image2", 450, 25); FlowImage.HideOneShowNext("Image2", "Image3", 450, 25); FlowImage.HideOneShowNext("Image3", "Image4", 450, 25); FlowImage.HideOneShowNext("Image4", "Image5", 450, 25); FlowImage.HideOneShowNext("Image5", "Image1", 450, 25);
كود:
FlowImage.HideAll({"Image1","Image2","Image3","Image4"}, 450, 25); FlowImage.MoveOne("Image1", 450, 25);

ثم نأتي الى قلوبال فنكشن ونضع هذا الكود كما في الصورة

كود:
FlowImage ={} function FlowImage.Move(tblIMG, Height, Y) for count = 1, Table.Count(tblIMG) do for countPOS = 1, Height do Image.SetPos(tblIMG[count], -(Height)+(countPOS), Y); end end end function FlowImage.MoveOne(ImageName, Height, Y) for countPOS = 1, Height do Image.SetPos(ImageName, -(Height)+(countPOS), Y); end end function FlowImage.Hide(tblIMG, Height, Y) for count = 1, Table.Count(tblIMG) do Image.SetPos(tblIMG[count], -(Height+1), Y); end end function FlowImage.HideOne(ImageName, Height, Y) for count = 1, Height do Image.SetPos(ImageName, -(count), Y); if count == Height then Image.SetPos(ImageName, -(Height+1), Y); end end end function FlowImage.HideOneShowNext(ImageName, NextImage, Height, Y) for count = 1, Height do Image.SetPos(ImageName, -(count), Y); if count == Height then Image.SetPos(ImageName, -(Height+1), Y); FlowImage.MoveOne(NextImage, Height, Y) end end end function FlowImage.HideAll(tblIMG, Height, Y) for count = 1, Table.Count(tblIMG) do Image.SetPos(tblIMG[count], -(Height+1), Y); end end
تعليق