تابع كيفية التعامل مع ادوات DriveListBox DirListBox FileList Box

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

 الحمد لله أحمده وأستعينه وأستهديه وأستغفره وأتوب إليه، وأومن به وأتوكل عليه، وأشهد أن لا إله إلا الله وحده لا شريك له، إله الأولين والآخرين، وأشهد أن محمدا عبده ورسوله بعثه الله رحمة للعالمين، اللهم صلِّ وسلم وبارك على عبدك ورسولك نبينا محمد وعلى آله وصحبه، ومن دعا بدعوته، واهتدى بهديه إلى يوم الدين

اما بعد

اليوم استكمالا للموضوع السابق

 

وسنقوم بعرض ملفات بصيغ اخرى وطرق اخرى 

 منها ملفات PDF   وملفات الصور JPG & BMP

 

طربقة عمل مستعرض لملفات الPDF

نفس مشروعنا السابق 

التعديل هو

نقوم باضافة هذه الاداة الموضحة بالصورة بدلا من الميديا بلير

 

 

بعد وضع الاداة نستبدل ما بالحدث دبل كليك علي  FileList Box

ونخليها كليك فقط عادي وليس دبل كليل

كما هو موضح بالكود التالي

Private Sub File1_Click()
AcroPDF1.LoadFile (Dir1.Path & "\" & File1.FileName)
End Sub

الكود يعمل علي تحميل  الملف المحدد داخل الفايل ليست وعرضة داخل الاداة ادوب اكروبات

كما هو موضح

وطبعا مننساش موضوع تحديد امتداد الملفات المراد تشغيلها داخل برنامجنا وهي الان PDF

الكواد كالتالي في تحميل الفورم

Private Sub Form_Load()
File1.Pattern = "*.pdf"
End Sub

وتسطيع عمل ازرار للكنترول ببرنامجك مثل ما بالصورة الاتية

وبكدا نكون انتهينا من نقطة ربط الدريفات بالمجلدات بالملفات وصولا لمستعرض PDF

ونخش كمان في مثال تاني 

وهو عمل مستعرض للصور

وطبعا نفس الادوات هي هي في كل الامثلة الا شئ واحد وهو مستعرض الملفات المراد العمل عليها

وهنا يتم وضع image

بدلا من اداة الادوب او الميديا كما موضح

وطبعا الاكواد المستبدلة كالعادة هي كالتالي

Private Sub File1_Click()
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End Sub
Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp;*.gif"
End Sub

ليصبح في النهاية هكذا

وبكدا نكون صنعنا 

مشغل وسائط الصوت والفيديو

مستعرض ملفات PDF

مستعرض الصور

ونستطيع ان نصنع ما نريد بهذه الطريقة من برامج متعددة نستعملها بصفة مستمرة

ومنتظر منكم الابداع  لن اكتفى بمثال مثل ما قمت بعمله لا

اريد التألق والابداع 

مثلا ربط الثلاثة امثلة في مثال واحد وتطبيق ما نريده  مثلا عن طريق تفعيل CheckBox مثلا عند وضع علامة صح امام تشغيل الوسائط يعمل الصوت والفيديو 

وان وضعت علامة صح امام تشغيل مستعرض  pdf يعمل

وهكذا

او تطبيق الامثلة على اشياء اخرى لم تذكر يعني فكرة جديدة

منتظركم

واعذروني لتأخري في وضع المواضيع قليلا لانشغالي 

مع تحياتي

ياسر العربي

يتبع

شارك المقال

شاركه على فيسبوكشاركه على جوجل+