مساعدة في ارفاق ملف فيديو

السلام عليكم

في الاول نحتاج الي ادراج مكون MMcontrol

و نضع منه واحده علي النموزج

و نضع زر امر

ثم نكتب الكود التالي في زر الامر :

اقتباس

With MMControl1

    .DeviceType = "avivideo"

    .FileName = (App.Path & "/CLOCK.avi")

    .Command = "open"

    .Command = "prev"

    .Command = "play"

End With

اشكرك أخي

وهذا أعرفه وبارك الله فيك

وجزاك الله عنا كل الخير

ولكن أريد الملف يفتح في نفس form الفيجوال بيسك

أي لا يفتح في نافذة أخرى مستقلة بذاتها

مثل الفلاش

عند تحميله على الفيجوال بيسك

يكون في المكان المخصص له

وبارك الله فيك

للرفع

اتمنى تردوا عليه

المثال يوضح ذلك .

كل الموضوع في السطر .

MMControl1.HwnDisplay = Picture1.Hwnd

تحياتي

Rzan.zip

أشكرك أخي الفاضل

وجزاك الله عنا كل الخير

فعلا جوابك شافي