سلام آقاي ارجمند فر ...
و همچنين با تشکر از آقا مهران .
آقاي ارجمند فر ؟! ... کلا تمام متدها و روش هاي شناخته شدهء ويدئو رو فراموش کنيد !
کدي که در پائين مي نويسم مناسبترين روش هست و مي تونين گسترشش بدين و همينطور فيکس مي کنه سايز ويدئو رو براي شما چون بسته به فرمت فايل هميشه سايز ديسپلي ويدئو در بيلدر تغيير مي کنه و مشکل ايجاد مي شه !
کد:
vx=82
vy=40
vw=628
vh=454
path$='<SrcDir>\shadi.wmv'
MCICommand("close all")
Open$='open "' + path$ + '" alias VIDEO style child parent <This>'
MCICommand("Open$")
put$='put VIDEO window at '
putjob$=put$ + CHAR(vx) + ' ' + CHAR(vy) + ' ' + CHAR(vw) + ' ' + CHAR(vh)
MCICommand("putjob$")
MCICommand("set VIDEO time format ms")
MCICommand("status VIDEO length")
length=MCIResult
MCICommand("Play VIDEO")
ببينيد اين مي تونه در يک کليد و يا اسکريپت قرار بگيره . چهار خط اول برنامه يعني vx - vy - vw - vh سايز Video Display هست .
خط پنجم مسير فايله ويدئويي براي اجرا . مي فرض گرفتم يه فايل ويدئويي دارين يه اسم shadi و با پسوند wmv .
البته پسوندش مي تونه هر فايله ويدئويي که بيلدر پشتيباني ميکنه هم باشه .
حالا اگه سورسي رو که پيوست کردم دنلود کنين و کامپايلش کنين و يک فايل هم به اسمه shadi.wmv در کنارش قرار بدين با اجراي اين برنامه بلافاصله فايل ويدئويي اجرا مي شه .
مي تونين در پوشه هاي مخصوصي هم قرار بدين فايل هاي ويدئويي رو البته و کد path رو تغيير بدين و اسم پوشه رو هم قبل از فايل بنويسيد .
اگر اين ويدئو پلير رو براي کتابخونتون ميخاين مناسبترين سازه همين هست که توضيح دادم .

همچنين مي تونين خصيصه seekbar رو هم به راحتي بهش اضافه کنين . ( به هر روشي که مايل باشيد ، حتي seekbar خودتون رو در پروژه اي که پيوست کرديد .
مثال رو لطفا دنلود کنين ، شامله اجزاي ديگه اي هم مي شه .
عصر بخير آقا .
شادي