تعلم كيفية فتح وقراءة ملفات PDF من خلال الفجوال بيسك 6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تعلم كيفية فتح وقراءة ملفات PDF من خلال الفجوال بيسك 6

مُساهمة من طرف أحمد مناع في الأربعاء يوليو 24, 2013 12:38 am

بسم الله الرحمن الرحيم 

أهلا وسهلا بكم إخوانى الكرام فى درس جديد من دروس منتدى مصر التقنى ....اليوم إن شاء الله تعالى سنتعلم سويا كيفية فتح وقراءة ملفات PDF من خلال الفجوال بيسك 6 و ذلك على النحو التالى :


1_ قم إنشاء مشروع قياسى جديد 

2_ قم بادراج Frame1 على النافذة الموجودة لديك بالمشروع 

3_ قم بادراج المكتبة Adobe Acrobat 7.0 browser Control و ذلك من خلال النقر بزر الماوس الايمن على شريط الادوات ثم أختيار Components ثم أختيار المكتبة من القائمة التى ستظهر ....و طبعا تلك المكتبة لن تجدها عندك فى حالة كونك غير مثبت برنامج  Adobe Acrobat على جهازك .....ذلك سأقوم برفعها لمن أراد ذلك


4_ نقوم بكتابة الاكواد التالية :

أ _ فى قسم التصريحات العامة سنكتب الكود التالى :
الرمز:
Private m_objPDF As AcroPDFLibCtl.AcroPDF
Private m_strFilePath As String

فى السطر الاول ....قمنا بتعريف كائن من نوع AcroPDF
فى السطر الثانى ....قمنا بالاعلان عن متغير نصى m_strFilePath ليعبر عن اسم الملف PDF و مساره 

ب _ فى حدث تحميل النافذة Form_Load نكتب الشفرة التالية :

الرمز:
 m_strFilePath = App.Path & "\SQL Server.pdf"
Set m_objPDF = Controls.Add("AcroPDF.PDF.1", "Test")
Set m_objPDF.Container = Frame1

فى السطر الاول ....قمنا بتمرير مسار و اسم الملف PDF المراد فتحته الى المتغير m_strFilePath 
فى السطر الثانى ....قمنا بإضافة عنصر تحكم مستعرض AcroPDF إلى النموذج في وقت التشغيل....مع تسمية العنصر بأسم Test 
فى السطر الثالث ...إدراج عنصر تحكم مستعرض AcroPDF  إلى حاوية Frame1 ....و يمكنك استخدام أحد العناصر الحاوية الاخرى بدلا من Frame1 مثل PictureBox 

ج_ فى حدث تنشيط النافذة Form_Activate نكتب الشفرة التالية :

الرمز:
m_objPDF.LoadFile m_strFilePath
m_objPDF.setShowToolbar False
m_objPDF.setLayoutMode "SinglePage"
 m_objPDF.setPageMode "none"
m_objPDF.setZoom 75
m_objPDF.Visible = True


فى السطر الاول ....تحميل ملف PDF المحددة في المتغير strFilePath.
فى السطر الثانى ...تعيين ما إذا كان شريط الأدوات سوف تظهر في المشروع أم لا 
فى السطر الثالث ...وهو الذى يحدد تخطيط عرض الصفحة و التى تاخذ خمس قيم ...على النحو التالى :

1_DontCare ................و التى تظهر الصفحة وفقا لاعدادات برنامج  Adobe Acrobat الافتراضية الحالية
2_SinglePage ..............أستخدام وضع الصفحة الواحدة 
3_OneColumn .............أستخدام وضع العمود الواحد 
4_TwoColumnLeft .......أستخدام وضع عرض الصفحة فى عمودين على ان يكون الصفحة الاولى على اليسار
5_TwoColumnRight ...  أستخدام وضع عرض الصفحة فى عمودين على ان يكون الصفحة الاولى على اليمين 

فى السطر الرابع .......يحدد وضع صفحة في مستند الذي هو المراد فتحه و تحدد بأستخدام أحد القيم التالية :

PDDontCare: 0 - ترك وضع العرض كما هو   
PDUseNone: 1 - العرض من دون علامات أو الصور المصغرة   
PDUseThumbs: 2 - عرض الصور المصغرة باستخدام  
PDUseBookmarks: 3 - عرض استخدام الإشارات المرجعية

فى السطر الخامس .....تعيين طريقة العرض التكبير وفقا للقيمة المحددة. يتراوح من 0 وما بعده
فى السطر السادس ...إظهار عنصر التحكم على النافذة 

د_ فى حدث إنهاء النافذة Form_Unload نكتب الشفرة التالية :
الرمز:
 m_objPDF.LoadFile ""
Set m_objPDF = Nothing


و اليكم المشروع فى المرفقات
المرفقات
Adobe Acrobat.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(2 Ko) عدد مرات التنزيل 15

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 809
النقاط : 1478
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية فتح وقراءة ملفات PDF من خلال الفجوال بيسك 6

مُساهمة من طرف جورج صبحى في الأحد أغسطس 04, 2013 10:19 am

مشكور يا صحبى ....حظرتنى لية من الفيس

جورج صبحى
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 98
النقاط : 211
التقيم : 3
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية فتح وقراءة ملفات PDF من خلال الفجوال بيسك 6

مُساهمة من طرف أحمد مناع في الأحد أغسطس 04, 2013 1:58 pm

جورج صبحى كتب:مشكور يا صحبى ....حظرتنى لية من الفيس

 لانك اصبحت مستفز و رخم للغاية

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 809
النقاط : 1478
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى