الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عرض مجموعة من الصور الموجودة في الdirectory عن طريق الpath الموجود في قاعدة البيانات

بدأه feras jamal في 10 مايو 2009 · 3 رد · 451 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندي مشـروع يقوم بعرض الصور كالاتي:

1- يوجد مجموعة الموظفين القائمين على انجاز مهام معينة في مشاريع المقاولات

2- كل موظف منهم يجب أن يعرض مجموعة من الصور عن مشروعه المنجز

3- يقوم هذا البرنامج بإضافة إسم الموظف و رقم المشروع التابع له، وذلك عن طرق قاعدة البيانات

4- ثم يقوم البرنامج بإضافة ال path للصورة في جدول في قاعدة البيانات مع الرقم للصورة و رقم المشروع

5- عند عملية العرض للصور يجب ان يقوم المستخدم باختيار رقم المشروع و من ثم الضغط على عرض الصور حيث سوف يقوم البرنامج بعمل filtering على الجدول و تحديد الصور الواجب عرضها فقط ثم يأخذ الـ path ويقوم بعرضها من الـdirectory

اريد ان يقوم البرنامج بعرض مجموعة من الصور من الـ directory حيث أنها مخزنة برقم المشروع ورقم الصورة. كما في نقظة 5

من السهل ان يقوم البرنامج بعرضها اذا تم تخزينها في قاعدة البيانات كصور و لكن هذه الطريقة ليست عملية نظراً للحجم حيث انه بعد فترة سوف تصبح قاعدة البيانات كبيرة لذلك قمت باختيار أن يقوم بعرض الصور من الـ directory

أرجو منكم المساعدة في كيفية عرض مجموعة معينة من الصور في الـ picture Box

من الـ directory وليكن على سبيل المثال C:\

و لكم جزيل الشكر

If your actions inspire others to dream more, learn more, do more and become more, you are a leader

Best Regards

Feras Abualrub

#2

السلام عليكــم ورحمـة الله وبركاتــه ،،

إذا كنت تستخدم الـ DataBindings Property (خاصية ربط البيانات)

يمكن ربط خاصية ImageLocation لمربع الصورة (وهذا ما أفعله فى برامجى :wink: ) مع الحقل الذى تخزن فيه مسار الصورة فى قاعدة البيانات (هذا طبعا إذا كانت الصور محدودة بعدد معين) أما إذا كان المستخدم يحدد مجموعة من الصور ليست محدودة العدد فيجب إنشاء مربعات الصور PictureBox من خلال الكود وربط كل أداة مع الصورة الخاصة بها

وهذه كيفية إضافة الصورة من الكود

		Dim pic As New PictureBox
		With pic
			.Location = New Point(0, 0)
			.Size = New Size(48, 48)
			.SizeMode = PictureBoxSizeMode.StretchImage
			.Image = New Drawing.Bitmap("C:\MyPic.jpg")
			Me.Controls.Add(pic)
		End With

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

feed.1.gif

#3

مشكور أخي على المساعدة،

لكن البرنامج الذي اقوم بعمله حالياً يتطلب أن نقوم بعمل loop

ومن خلال loop

سوف نقوم بأخذ الـpath من الجدول لعرض صورة بعد صورة

هل لديك معلومات عن ذلك

If your actions inspire others to dream more, learn more, do more and become more, you are a leader

Best Regards

Feras Abualrub

#4
اقتباس
لكن البرنامج الذي اقوم بعمله حالياً يتطلب أن نقوم بعمل loop

هل ستقوم بعمل لووب على السطور الموجودة فى DataTable ؟

اقتباس
لعرض صورة بعد صورة

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

لم أفهم هذه الجزئية جيدا

عموما إذا كنت ستقوم بعمل لووب على سطور DataTable فمعنى ذلك أن عدد الصور غير محدود وستقوم بانشاء مربعات الصور عن طريق الكود كما ذكرت فى المشاركة السابقة

Dim pic As PictureBox
For Each drw As DataRow In dt.Rows
pic = New PictureBox
		With pic
			.Location = picLocation
			.Size = New Size(48, 48)
			.SizeMode = PictureBoxSizeMode.StretchImage
			.Image = New Drawing.Bitmap(drw("ImageLocation"))
			Me.Controls.Add(pic)
		End With
Next

كل ما ستفعله أنك ستقوم بحساب بسيط لتغيير picLocation

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

feed.1.gif

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…