السلام عليكم استاتذتي الكرام
المطلوب اخواني معاينه المرفقات بImageBox مهما كانت الصيغه
حاولت و لم استطيع اضهار ملفاتPDF بImageBox
هل ممكن ذالك او توجد طرق اخري لذالك
تحياتي اليكم احبتي
مثال.rar
وعليكم السلام رحمة الله
أهلا بك @النجاشي
أجريت تعديلا على بعض الإجراءات..
وأنشأت لك وظيفة تقوم بالبحث عن اسم الملف أبتداءً من الدليل الرئيسي إلى أدنى مستوىً من الأدلة الفرعية. فإن كان الملف موجودا؛ أعادة اسم الملف مع الدليل..
الوظيفة مع التعديلات
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