إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

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

تقليص
هذا الموضوع مغلق.
X
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

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

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



    ندرج فيه 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
    وبهذا نكون قد أنهينا أتمنى أن تكون الفكرة قد وصلت والسلام عليكم ورحمةالله وبركاته
    التعديل الأخير تم بواسطة بريزة; الساعة 17-08-2011, 08:07 AM. سبب آخر: إضافة صور

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

    تعليق


    • #3

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

      تعليق


      • #4
        جزاك الله خيرا ووفقك لكل خير

        تعليق


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

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

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

          تعليق


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

            تعليق

            مواضيع تهمك

            تقليص

            المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
            المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
            المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
            المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
            المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
            يعمل...
            X