هل ممكن معاينه المرفقات بImageBox مهما كانت الصيغه

[النجاشي]

السلام عليكم استاتذتي الكرام

المطلوب اخواني معاينه المرفقات بImageBox مهما كانت الصيغه

حاولت و لم استطيع اضهار ملفاتPDF  بImageBox

هل ممكن ذالك او توجد طرق اخري لذالك 

تحياتي اليكم احبتي

مثال.rar

[kkhalifa1960]

هذا ماحصلته لدي فالموضوع كبير افتح كمل .......... ووافني بالنتيجة

https://gist.github.com/chemiadel/056ed43975f7b7f8cb332b02a5011abb

[النجاشي]

14 ساعات مضت, kkhalifa1960 said:

هذا ماحصلته لدي فالموضوع كبير افتح كمل .......... ووافني بالنتيجة

https://gist.github.com/chemiadel/056ed43975f7b7f8cb332b02a5011abb

استاذي الفاضل حاولت ولم استطيع تطبيق الكود ياليت ترفق لنا مثال عليه

وحاولت ابحث غن امثله وجدت للاخت زهره مثال ويعرض ملفات PDF ولكن اعتقد كانه ناقص مكتبات او شي اخر 

تحياتي 

Books.rar

[أبو إبراهيم الغامدي]

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

في 2‏/12‏/2022 at 17:28, النجاشي said:

هل ممكن ذالك او توجد طرق اخري لذالك

في المثال المرفق استخدمت مستعرض الويب للتطبيق

اظهار المرفقات .zip

 

[kkhalifa1960]

تفضل أخي ووافني بالنتيجة وايضاً  هذا الرابط  

 

New folder (3).rar

[النجاشي]

18 ساعات مضت, أبو إبراهيم الغامدي said:

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

في المثال المرفق استخدمت مستعرض الويب للتطبيق

اظهار المرفقات .zip 198.38 kB · 11 downloads

 

استاذي الفاضل ابو ابراهيم ظهرت معي الصوره اما PDF  لم تظهر 

هل تكون مشكله بالمراجغ بارك الله فيك

[النجاشي]

19 ساعات مضت, kkhalifa1960 said:

تفضل أخي ووافني بالنتيجة وايضاً  هذا الرابط  

 

New folder (3).rar 473.29 kB · 6 downloads

استاذي الفاضل المقصود يظهر الصوره او pdf بالنموذج مثال استاذنا ابو ابراهيم هو نفس الذي أريده لكن أظهر الصوره ولم يظهر pdf وأعتقد أنه يلزمه مرجع فاليت تنظر إلى ملف ابو ابراهيم هل يظهر معاك ملف pdf أو لا وإليك جزيل الشكر

 

[أبو إبراهيم الغامدي]

1 ساعه مضت, النجاشي said:

استاذي الفاضل ابو ابراهيم ظهرت معي الصوره اما PDF  لم تظهر

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

[النجاشي]

محمل عندي هل الاصدار له دور أو ياليت تزودنا برابط أحمله بارك الله فيك استاذي ابو ابراهيم

 

 

[أبو إبراهيم الغامدي]

9 دقائق مضت, النجاشي said:

محمل عندي هل الاصدار له دور أو ياليت تزودنا برابط أحمله بارك الله فيك استاذي ابو ابراهيم

لا.. لكن عليك الانتظار قليلا حتى يتم تحميل الملف في المتصفح.. خاصة إذا كان كبير الحجم

[ابو البشر]

16 دقائق مضت, نهر الفنون said:

مثال جميع بس لوكان يدعم جميع صيغ الصور يكون اجمل لانه حاليا لايعرض الا صور صيغة BMP‬‬ 

البرنامج يعرض كل امتدادات الصور ............. ماهو الامتداد الذي لم يظهر معك ؟؟؟؟؟

[أبو إبراهيم الغامدي]

هذا التعديل يفي بالغرض إن شاء الله

اظهار المرفقات .zip

[النجاشي]

13 ساعات مضت, أبو إبراهيم الغامدي said:

هذا التعديل يفي بالغرض إن شاء الله

اظهار المرفقات .zip 1.16 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 9 downloads

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

الله يعطيك العافيه

[أبو إبراهيم الغامدي]

15 دقائق مضت, النجاشي said:

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

https://get.adobe.com/reader/

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

[النجاشي]

في 4‏/12‏/2022 at 18:19, أبو إبراهيم الغامدي said:

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

بارك الله فيك استاذي ومعلمي ابو ابراهيم نور الله دربك وزادك علما ونور بعد ما حملت الأكروبات اشتغل حفظك الله ورعاك

ملاحظه بسيطه قد تكون في جهازي او هي طبيعي احسن انه عندما تتنقل بين الملفات بطي شوي بالنسبه لملفات PDF

اما الصور امرها طيب

تحياتي اليك ولكل الاخوه المشاركين

[النجاشي]

في 4‏/12‏/2022 at 21:09, أبو إبراهيم الغامدي said:

هذا التعديل يفي بالغرض إن شاء الله

اظهار المرفقات .zip 1.16 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 25 downloads

السلام عليكم

استاذي الفاضل ابو ابراهيم الله يسعدك 

اذا كان عندي عده مجلدات فرعيه  متغيره بداخل المجلد (src) كيف بيكون الكود    XPath = CurrentProject.path & "\src\"

واليك المرفق الله ينور دربك القي عليه نظره 

المرفقات الفرعيه.rar

[النجاشي]

للرفع

[أبو إبراهيم الغامدي]

وعليكم السلام رحمة الله 

أهلا بك @النجاشي

في 14‏/12‏/2022 at 19:36, النجاشي said:

اذا كان عندي عده مجلدات فرعيه  متغيره بداخل المجلد (src) كيف بيكون الكود    XPath = CurrentProject.path & "\src\"

أجريت تعديلا على بعض الإجراءات..

وأنشأت لك وظيفة تقوم بالبحث عن اسم الملف أبتداءً من الدليل الرئيسي إلى أدنى مستوىً من الأدلة الفرعية. فإن كان الملف موجودا؛ أعادة اسم الملف مع الدليل..

الوظيفة مع التعديلات

Public Function XPath()
      XPath = CurrentProject.Path & "\src\"
End Function

Public Function FSO() As FileSystemObject
   Set FSO = New FileSystemObject
End Function

Public Function GetFileDirectory(MainPath As Object, Optional FileName As Variant)
   Dim OFIL As Scripting.File, OFILS As Scripting.Files
   Dim OMFD As Scripting.Folder, OSFD As Scripting.Folder
   Static XFileName As String, FilePath   '.. Static Declaration reserved value when function recoll
   
   '-- get filename in first time call and reserved value
   If Not IsMissing(FileName) Then
    XFileName = FileName
   End If
   
   '-- loop for subfolders in his parent folder
   For Each OSFD In MainPath.SubFolders
      
      Set OMFD = FSO.GetFolder(OSFD.Path)
      Set OFILS = OSFD.Files
      
      '-- loop for file in each folder
      For Each OFIL In OFILS
         If OFIL.Name = XFileName Then
            FilePath = OFIL.Path
            GoTo TheEnd
         End If
      Next
      '-- Function recoll himself with subfolder
      GetFileDirectory OSFD
   Next
TheEnd:
   '-- Function return filepath if file found
   GetFileDirectory = FilePath
End Function

 

اظهار المرفقات .zip

[النجاشي]

بارك الله فيك استاذي الفاضل@أبو إبراهيم الغامدي ابو ابراهيم وشكر كثير على مجهودك فعلا رائع وجميل وهو المطلوب 

فالف الف شكر

وجزاء الله خير الجزاء وزادك علما

تحياتي 

[jjafferr]

في 15‏/12‏/2022 at 20:54, أبو إبراهيم الغامدي said:

من الدليل الرئيسي إلى أدنى مستوىً من الأدلة الفرعية

كود رائع اخوي ابو ابراهيم ، تغوص في الاعماق من مجلد فرعي الى آخر 🙂

جعفر