طريقة استعراض الصور من خلال قاعدة بيانات Access

شكراً أخى على هذا المجهود

مثال جيد..

اقتراح:

يمكنك تطوير هذا المثال لجعله متصفح للصور

أخي الكريم

مليون تحية

أشكرك جزيل الشكر على المجهود الكبير وبارك الله فيك وجعله الله في ميزان حسناتك

تقبل اجمل تحياتي

رائع ما فعلت

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

الشكر لكم جميعا،

عبـد المجيـد و kamal alnahhal : كلامكم الطيب يثلج صدري.

هاني عوض: بالفعل هذا الـ Code يمكن تطويره بعدة صور،

إعتمادا على هذا المتغير : "strInputFileName".

مثال:

قمت بإدخال تعديل آخر على الملف،

بحيث أصبح يعرض مسار ملف الصورة كاملا في مربع نص،

وصار بالإمكان الإستفادة من هذا الـ Code بشكل أكبر.

الخطوات:

1- أدرج مربع نص جديد وليكن باسم "txtPath".

2- في حدث عند النقر على زر أمر "cmdOpen" غير الـ Code إلى التالي:

Dim strFilter As String
	Dim strInputFileName As String
	strFilter = ahtAddFilterItem(strFilter, "JPEG Files (*.jpg, *.jpeg)", "*.jpg;*.jpeg")
	strFilter = ahtAddFilterItem(strFilter, "GIF Files (*.gif)", "*.gif")
	strFilter = ahtAddFilterItem(strFilter, "BMP Files (*.bmp)", "*.bmp")
	strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*")
	strInputFileName = ahtCommonFileOpenSave( _
					   Filter:=strFilter, _
					   OpenFile:=True, _
					   DialogTitle:="من فضلك قم بتحديد الصورة...", _
					   Flags:=ahtOFN_HIDEREADONLY)
	If Len(strInputFileName) > 0 Then
		Me.pic.Picture = strInputFileName
		Me.txtPath.Value = strInputFileName
	Else
	End If