ممكن كود اضافة ملف من نوع avi or swf

بالنسبة لكود فتح الفلاش فهذا هو :

ShockwaveFlash1.LoadMovie 0, "C:\Movie1.swf"

لكن لازم تضيف أولا أداة ShockwaveFlash

لاضافه ملف فلاش

ضع زر تحكم command و الاداه ShockwaveFlash1

ثم اكتب الكود التالى فى زر التكحكم

Private Sub Command1_Click()

ShockwaveFlash1.Movie = App.Path & "\MILINTRO.swf"

ShockwaveFlash1.Play

End Sub

الشرح

الكود :

ShockwaveFlash1.Movie = App.Path & "\MILINTRO.swf

لاضافه ملف الفلاش فى الاداه

اما الكود

ShockwaveFlash1.Play

فهوا لتشغيل ملف الفلاش تلقائيا

اما عن ملف avi

ضع الاداه MMControl1 وسمها mm وضع زر تحكم command

واكت الكود التالى :

Private Sub Command1_Click()

mm.FileName = App.Path & "\1.mp3"

mm.Command = "open"

mm.Command = "play"

End Sub

الشرح :

الكود

mm.FileName = App.Path & "\1.mp3

لتحميل الملف المراد تشغيله من الامتدادات التاليه avi , mp3 , wav ...الخ

اما الكود

mm.Command = "open"

mm.Command = "play"

لتفعيل الاداه ولتشغيل الملف تلاقائيا

بالتوفيق اخى الغالى

هذا رابط المشاريع

http://www.geocities.com/abdo_200595/my/swfavi.zip

بالتوفيق

مشكورين يا جماعه والله على الردود انتو ساعتزني خااااااااااااالص

بس في حاجه اخيره انا هقوم بوضع المشروع على اسطوانه مدمه ازاي هيكون مكان الملف المراد تشغيله صح

اخى الغالى najahaja

يمكنك ادراج الملف اللى انت عاوز تشغله مع البرنامج فى نفس المجلد

عن طريق برنامج الـPackage وانت بتعمل setup للبرنامج

او لو مش عاوز تعمل setup ممكن تضع الملف المراد تشغيله فى البرنامج فى نف المجل الموجود فيه البرنامج بنفس الكود اللى فات

بالتوفيق :rolleyes: