تصميم برنامج لتشغيل ملفات AVI
السلام عليكم
هذا الكود خاص لتشغيل متقطفات الفيديو avi
خطوات البرنامج
1- تاكد من أن أداة الوسائط المتعددة موجودة فى مربع الأدوات وأذا لم تكن موجودة يمكنك أضافتها من الخطوة التالية
Project => components =.>Microsoft multimedia control 6.0
2- أضف أداة الوسائط المتعددة الى النموذج وسمها mmcplayer
3- قم بتغير الخواص Record visible و Eject visible الى القيمة False لاخفاء الزرين Record و Eject حيث انهما لا يستخدمان مع أفلام الفيديو
4- أضف الاداة Common Dialog الى النموذج لتسهيل فتح الملفات ثم غير أسمها الى cd1
و أذا لمل تكن الأداة موجودة يمكنك أضافنها من الخطوة التالية
Project => components =.> Microsoft common Dialog control6.0
5- أضف زر ثم غير أسمها الى play وأجعل عنوانه Open
6- أضف الكود التالى الى الجراء Click الى الزر play
Private sub play _Click()
Cd1.filter = "AVI Movie Files (*.avi)|*.avi"
Cd1.showOpen
mmcPlayer.DeviceType ="AVIVIDEO"
mmcPlayer.Filename=cd1.filename
mmcPlayer.command="Open"
End sub
• و عند تشغيل البرنامج و تحديد ملف الفيديو من نوع AVI المراد تشغلية تجد البرنامج يقوم بأظهار نافذة منفصلة يعرض عليها ملف الفيديو
• أما أذا ارادت عرض ملف الفيديو فى نفس النافذة ما عليك الا أضافة مربع رسم PictureBox ثم تغيير الخاصية hwndDisplay التابعة لاداة العرض لتشير الى مربع الرسم
mmcPlayer.hwndDisplay=Picture1.hwnd