طريقة رائعة لعرض الصور

[بريزة]

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

http://img148.imageshack.us/img148/9977/456v.jpg

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

http://img580.imageshack.us/img580/9576/89197764.jpg

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

http://img220.imageshack.us/img220/6952/90096021.jpg

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

http://img199.imageshack.us/img199/2614/88692840.jpg

نأتي الآن للأكواد

بالنسبة للأزرار

الزر الأول

http://img88.imageshack.us/img88/4734/48848152.jpg
http://img6.imageshack.us/img6/9324/83068871.jpg

الزر الثاني

http://img683.imageshack.us/img683/2564/57033815.jpg

نضع الكود دائما في اون كليك

FlowImage.MoveOne("Image1", 450, 25);

الزر الثالث :

http://img62.imageshack.us/img62/5608/41849843.jpg

FlowImage.HideOneShowNext("Image1", "Image2", 450, 25);
الزر الرابع :

http://img807.imageshack.us/img807/3016/76910865.jpg

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

الزر الخامس :

http://img62.imageshack.us/img62/5608/41849843.jpg

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);

كماهو موضح في الصورة

http://img31.imageshack.us/img31/874/17954822.jpg

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

http://img824.imageshack.us/img824/2391/1111nz.jpg

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

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

[أبو يوسف]

موفق بإذن الله ... لك مني أجمل تحية .

[azizsoft]

جزاكم الله كل الخير اختنا الفاضلة " بريزة"
شرح جميل ومشاركة مميزة
تنتظر ابداعاتك
وفقكم الله دينا ودنيا
رمضان كريم

[أبو الوليد]

جزاك الله خيرا ووفقك لكل خير :abc_152:

[abohmam]

بارك الله فيك على افستجابة لوضع الشرح

وفعلا طريقة جميلة للعرض

جزاك الله خيرا

[النصل القاطع]

روعة أختى بريزة
وفقك الله و رعاكى