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

[النجاشي]

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

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

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

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

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

مثال.rarFetching info...

[kkhalifa1960]

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

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

[النجاشي]

  في 2‏/12‏/2022 at 22:20, kkhalifa1960 said:

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

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

Expand  

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

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

تحياتي 

Books.rarFetching info...

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

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

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

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

Expand  

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

اظهار المرفقات .zipFetching info...

 

[kkhalifa1960]

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

 

New folder (3).rarFetching info...

[النجاشي]

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

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

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

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

 

Expand  

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

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

[النجاشي]

  في 3‏/12‏/2022 at 18:51, kkhalifa1960 said:

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

 

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

Expand  

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

 

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

  في 4‏/12‏/2022 at 13:32, النجاشي said:

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

Expand  

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

[النجاشي]

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

 

 

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

  في 4‏/12‏/2022 at 15:32, النجاشي said:

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

Expand  

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

[ابو البشر]

  في 4‏/12‏/2022 at 15:49, نهر الفنون said:

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

Expand  

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

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

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

اظهار المرفقات .zipFetching info...

[النجاشي]

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

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

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

Expand  

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

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

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

  في 5‏/12‏/2022 at 08:09, النجاشي said:

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

Expand  

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

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

[النجاشي]

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

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

Expand  

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

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

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

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

[النجاشي]

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

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

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

Expand  

السلام عليكم

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

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

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

المرفقات الفرعيه.rar 608.3 kB · 46 downloads

[النجاشي]

للرفع

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

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

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

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

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

Expand  

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

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

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

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

 

اظهار المرفقات .zipFetching info...

[النجاشي]

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

فالف الف شكر

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

تحياتي 

[jjafferr]

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

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

Expand  

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

جعفر