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

ندرج فيه 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


تعليق