اذهب الي المحتوي
أوفيسنا

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


النجاشي
إذهب إلى أفضل إجابة Solved by أبو إبراهيم الغامدي,

الردود الموصى بها

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

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

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

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

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

مثال.rar

رابط هذا التعليق
شارك

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

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

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

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

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

تحياتي 

Books.rar

رابط هذا التعليق
شارك

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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‬‬ 

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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

السلام عليكم

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

اذا كان عندي عده مجلدات فرعيه  متغيره بداخل المجلد (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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

فالف الف شكر

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

تحياتي 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

جعفر

 

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information