jo_2010 قام بنشر نوفمبر 17, 2023 مشاركة قام بنشر نوفمبر 17, 2023 الخبراء الافاضل بعد التحية اريد تقرير pdf او الصور تكون بالكامل داخل اطار العرض فقط ولا احتاج الى اشرطة التمرير اليكم القاعدة للتعديل JO.rar رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر نوفمبر 17, 2023 مشاركة قام بنشر نوفمبر 17, 2023 بالنسبة لشرئط التمرير وعرض الصورة في اطار محدد من معلوماتي وحسب ما جربت يصير بكل أنواع الصور حتى المتحركة أما صور PDF لا ........ أما اذا أحد الزملاء عنده طريقة يتفضل .... وكله بيتعلم وأنا منهم . رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر نوفمبر 17, 2023 مشاركة قام بنشر نوفمبر 17, 2023 انشئ نموذج جديد وا ضف فيه مستعرض ويب و في حدث عند النقر على قائمة الملفات ضع الكود التالي Dim wb As Object Set wb = WebBrowser0.Object ' ضورة اضافة اسم عنصر التحكم لمستعرض الويب Dim filelocation As String filelocation = "C:\Users\File1.pdf" ' ضع هنا اسم عنصر التحكم الذي يحتوي على اسم الملف لعرضه wb.silent = True With wb .navigate2 "about:blank" Do Until .ReadyState = 4 DoEvents Loop .Document.Open .Document.write "<!doctype html><html><head><title>my title</title></head><body scroll=""auto"" style=""margin: 0px; padding: 0px;"">" & _ "<embed style='padding: 70px;' src=""" & filelocation & """ width=""50%"" height=""100%"" />" & _ "</body></html>" .Document.close End With رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر نوفمبر 18, 2023 الكاتب مشاركة قام بنشر نوفمبر 18, 2023 في 18/11/2023 at 00:19, دروب مبرمج said: انشئ نموذج جديد وا ضف فيه مستعرض ويب و في حدث عند النقر على قائمة الملفات ضع الكود التالي Dim wb As Object Set wb = WebBrowser0.Object ' ضورة اضافة اسم عنصر التحكم لمستعرض الويب Dim filelocation As String filelocation = "C:\Users\File1.pdf" ' ضع هنا اسم عنصر التحكم الذي يحتوي على اسم الملف لعرضه wb.silent = True With wb .navigate2 "about:blank" Do Until .ReadyState = 4 DoEvents Loop .Document.Open .Document.write "<!doctype html><html><head><title>my title</title></head><body scroll=""auto"" style=""margin: 0px; padding: 0px;"">" & _ "<embed style='padding: 70px;' src=""" & filelocation & """ width=""50%"" height=""100%"" />" & _ "</body></html>" .Document.close End With معلمى الفاضل دروب مبرمج امكانياتى محدودة بالبرمجة ممكن لو تكرمت التعديل على النموذج المرفق باعلى رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر نوفمبر 18, 2023 مشاركة قام بنشر نوفمبر 18, 2023 (معدل) اخي الفاضل ، بعد البحث والتقصي لم أجد ما يخفي شريط التمرير في مستعرض الـ PDF ، وذلك من وجهة نظري يعود إلى أنه لو افترضنا أن المرفق أكثر من صفحة !! فكيف سيتم التنقل بين الصفحات في الـ Pdf المعروض ؟؟؟؟؟ كذلك الأمر قمت بتجربة الكود التالي ولم يقم بالإخفاء ، هذا من وجهة نظري و إن كان للأساتذة معلومة أخرى فمنهم نستفيد . Me.WebBrowserControlName.ScrollBars = 0 تم تعديل نوفمبر 18, 2023 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر نوفمبر 19, 2023 الكاتب مشاركة قام بنشر نوفمبر 19, 2023 14 ساعات مضت, Foksh said: اخي الفاضل ، بعد البحث والتقصي لم أجد ما يخفي شريط التمرير في مستعرض الـ PDF ، وذلك من وجهة نظري يعود إلى أنه لو افترضنا أن المرفق أكثر من صفحة !! فكيف سيتم التنقل بين الصفحات في الـ Pdf المعروض ؟؟؟؟؟ كذلك الأمر قمت بتجربة الكود التالي ولم يقم بالإخفاء ، هذا من وجهة نظري و إن كان للأساتذة معلومة أخرى فمنهم نستفيد . Me.WebBrowserControlName.ScrollBars = 0 اخى الفاضل شكرا للاهتمام معك كل الحق فى ال pdf ولكن مع الصور اعتقد لن تكون هناك غير صورة واحدة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.