كيف أستعرض الصور على الفورم

أرفقي البرنامج ليتم التعديل عليه من قبل الأعضاء

يا أخ فهد ما يصح طلب كهذا !!. يمكن الصور تكون خاصة وبعدين ما يصير برنامج. قل مثلا أرفقي مثالا .. أما أن تقول أرفقي البرنامج بصراحة هذي كبيرة شوي :D

وعلشان ما تزعل أبشر بوردة وهدية (f) (gift)

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

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

طيب أرفقي مثالا من عندك لكي أعرف كيف قمتي بإدراج الصور حتى لا يتعارض مع ما هو عندك .

ولا تهتمي بكلام أخي المالكي فقصده التشويش هداه الله :P

السلام عليكم

بعد اذنك اخوي فهد ;) ;) تسمحلي؟؟؟:rolleyes: :rolleyes:

يمكنك ليلى استخدام if مع هذه الصور في الحدث on timer ( عند عداد الوقت) ولتوضيح اكثر

تتبعي الخطوات التالية :

- لنفترض ان لديك 3 صور بالاسماء التاليه image0 - image1-image2

على الفورم

- اجعل خاصية visible=false ي جميع الصور ماعدا image0

- في خصائص الفورم وبالتحديد في صفحة event او حدث ، و عند عداد الوقت اكتبي الاجراء التالي

Private Sub Form_Timer()
   If Image0.Visible = True Then
        Image0.Visible = False
        Image1.Visible = True
   ElseIf Image1.Visible = True Then
       Image1.Visible = False
       Image2.Visible = True
   ElseIf Image2.Visible = True Then
       Image2.Visible = False
       Image3.Visible = True
    ElseIf Image3.Visible = True Then
       Image3.Visible = False
       Image0.Visible = True

   End If

End Sub

وللتحكم في الفترة الزمنية بين عرض كل صورة اضبطي خاصية time Interval (الفاصل الزمني لعداد الوقت ) للقيمة التي تفضلين

علما بإن 1000 = 1 ثانية و 2000 = 2 ثانية وهكذا

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

مع تحياتي للجميع (f)(f)

طيب أعطوني رأيكم ياجماعة في هذا المثال

أيش تقولون

أشرح المثال على ضوء استفساراتكم

عملت مثال باستخدام Select Case لثلاث صور ولم أنجح في وضعه في المنتدى والطريقة هي كما ذكرها الأخ أهم واحد وإذا كان لديك بريد فسوف أرسل لك المثال عليه إن شاء الله

نسيت أذكركم ياجماعة إني مرفق مجلد لبعض الصور

ماعليكم إلا أن تضعو مجلد الصور في المجلد ( My Documents )

ورياح تشتغل الصور على أحسن حال

لا تنزعجوا من الشريط الي يظهر فجاءة عند تغيير الصورة لأن امتداد الصورة من نوع ( jpg ) ولوكانت من نوع ( bmp ) لن تظهر وضعتها بهذا الإمتداد من أجل المساحة

تلاحظون إني سميت الصور بالأرقام من أجل أن يطابق اسم الصورة رقم الصورة في الجدول وهو عبارة عن ترقيم تلقائي

اتمنى إني وضحت الفكرة

مثال على المطلوب

alboom.zip

السلام عليكم

وهذا هو المثال

لكن الغيت الصور منه لانه سيزيد حجم الملف

- كل ماعليك هو فتح النموذج في عرض التصميم ، سيبدو لك خالي ولكن حقيقة مدرج به 3 عناصر تحكم من نوعimage(صورة) بالاسماء التاليه

image0-image1-image2

- ومن ثم فتح صفحة خصائص ومن اعلا هذه الصفحة ستجدين هذه العناصر الثلاثه مدرجة في القائمة المنسدلة .

اختاري image0 من ثم اختاري تبويب format (تنسيق) وبعد ذلك اضبطي خاصية picture (صورة) بمسار الصورة لديك على الجهاز وهكذا مع بقية العناصر ،،، ثم اعرضي النموذج وشاهدي النتيجة

آملا ان يكون الشرح واضح

مع تحياتي للجميع (f)(f)

autoview.rar

وهذا مثال آخر بطريقة اخرى وايضا خالي من الصور

- فقط افتحي جدول Image واضغط على السجل الاول بالماوس بالزر الايمن واختاري insert Object(ادراج كائن )

وتتبعي الخطوات التاليه

create from file(انشاء من ملف )------> Browse (استعراض) ------> حددي المسار ------>ok

في حالة عدم رغبتك ان تكون الصورة متضمنة مع الملف تاكد من وجود علامة صح في Link (ربط)

اما اذا اردت ان تكون الصورة متضمنة مع الملف فامسحي علامة صح من هذا الخيار مع ملاحظة ان النتيجة ستؤدي الى زيادة حجم الملف

وبعد ذلك افتحي form1 وشاهدي النتيجة

اتمنى ان يكون الشرح واضح

مع تحياتي للجميع (f)(f)

autoview2.rar

الأخوة الكرام شاكرة لكم تعاونكم بس يوجد بعض الملاحظات :

بالنسبة للملف بتاع الأخ أهم واحد لم يفتح لي أشان بهيئة RAR ولم فكيت ضغطه تقول المسج من الأكسس لم يتمكن من فتحة . وهذا ماينقص جهدك فلك كل الشكر على تعاونك .

أما برنامج الأخ فهد الدوسري فتح لأنه بهيئة zip والمثال جيد بس لي ملاحظة :

أولا أنا عايزة من يوم يفتح الفورم بدون زر أمر وهذا أمر ممكن حله . بس المشكلة المهمة وهي لنفرض أن ملف الصور لم يعد موجود ونسخته في كمبيوتر آخر أقصد البرنامج فلن تشتغل الصور لأن مجلد الصور ومساره غير موجود فلابد نسخة . مش صح ! لكن هل يوجد طريقة أن يأخذ البرنامج نسخة من الصورة ويحتفظ بها مثل الفيجول بيسك وتكون محمله عنده باستمرار حتى لو حذفنا مجلد الصور أو غيرنا مساره فمش مهم . ياليت قصدي مفهوم . وألف شكر للجميع

أخ فهد معليش أنا ستعجلت يمكن المطلوب موجود لأني لم أستعرض وأفهم البرنامج كويس فلا تتعب حالك بشوفه وأرد عليك . وألف شكر

عفوا ليلى

حقيقة برنامج winzip لايفتح ملفات من rar ولكن ممكن برنامج winrarيفتح ملفات من zip ، وحقيقة انا افضل برنامج winrar لان ضغط الملفات به افضل من winzip

وعلى العموم ستجدين المثالين مع بعض ويمكنك فتحه بالـ winzip

autoview.zip

أخ اهم واحد يعطيك العافية . لما شغلت النموذج fORM1 ضل معلق ويقول لا يستطيع الذهاب الى السجل

DoCmd.GoToRecord , , acFirst

ولما تتبعت IMAGE في الجدول لقيت أنك أضفت خاصية الحقل صورة OLE فكيف أدرجها في الجدول أشان يقرأ من سجلت الجدول. فهمت قصدي وهذا ولي مخليه معلق لأنه يبحث عن السجل (الصورة)

=============================================

الأخ فهدالدوسري المثال جيد بس الكود طويل وممل يعني لو كان عندنا 100 صورة بنكرر الكود CASE مئات المرات . فليه مايكون البرنامج في وضع حلقة يعني LOOP مو أسهل. أيش رايك !!!

:(:(:( هل قراتي ردي عليكي جيدا؟؟؟ او انكي لم تفهمي كلامي !!!!:(:(:(

على العموم من كلامك عرفت انك فتحت ملف autoview2 ،، وبالنسبة كيف تدرجين الصور في الجدول ،،، ممكن ترجعين لردي الثاني وتعرفين كيف ،،، اما اذا كان فعلا مافهمتي كلامي ،،، فلكل حادث حديث ....

وبعدين مافهمت وش تقصدين (ولي مخليه معلق لأنه يبحث عن السجل (الصورة)

مع تحياتي للجميع (f)(f)

على العموم طريقة حفظ الصور في القاعدة تزيد من حجمها ويصعب نقلها من جهاز إلى آخر إلا عن طريق ( C D ) السي دي

أما بالنسبة لطول الكود فهذا حسب خبرتي المتواضعة جدا جدا :o

وفي هذا المنتدى ولله الحمد أساتذة خير مني في صنع الأكواد فلعلنا أن نستفيد منهم ففيهم الخير والبركة إن شاء الله .

لم أجربه

لعله يفيدك

alboom.zip

الله يعطيك العافية وسوف أجربه ولعلى به المقصود وشكرا لك(f)

أحاول أن أفهم عمل البرنامج