تغییر سایز فیلم در حال اجرا

[sosol]

[FONT=&quot]سلام[/FONT]​

[FONT=&quot]چند تا فیلم دارم [/FONT]​

[FONT=&quot]که با دکمه [/FONT][FONT=&quot]play[/FONT]​

[FONT=&quot]در سایز [/FONT][FONT=&quot]200-300[/FONT]​

[FONT=&quot]اجرا میشه [/FONT]​

[FONT=&quot]میخوام با زدن کلید [/FONT][FONT=&quot]Enter[/FONT]​

[FONT=&quot]سایز فیلم ها به 800 - 600[/FONT]​

[FONT=&quot]تغییر اندازه بده و دوباره با زدن اینتر به سایز اولیه برکرده
راستی میخواستم از دستور Replace
که برای تصاویر هست رو فیلم امتحان کنم
که مجبور نشم تک تک فیلم ها رو تو پروژه لود
اما جواب نداد
MER30
[/FONT]​

[FONT=&quot]رویاهایت را برآورده کند[/FONT]​

[FONT=&quot] آنکه ابر را می گریاند تا گل را بخنداند[/FONT]​

 

[evil_gates]

يه اسكريپت بسازيد و تو قسمت Keyboard كليد Enter رو انتخاب كنيد تا با زدن اين كليد كدهاي اسكريپت اجرا بشن.

يك متغير رو در نظر بگيريد و در زمان شروع پخش مقدارش رو صفر قرار بديد.

داخل اسكريپت با يك شرط چك كنيد اگه مقدار متغير صفر هست ابتدا ابعاد فيلمتون رو به اندازه دلخواه تغيير بده و مقدار متغير رو برابر يك

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

با ReplaceImage نميتونيد فيلمها رو عوض كنيد. لازمه حتما از VideoLoad استفاده كنيد. هر دستور براي شي خاصي كاربرد داره.

 

[sosol]

تغییر سایز

سلام
دستورات رو چند بار اجرا کردم اما جواب نداد
اگه ممکنه یه نمونه بزارید
ممنون

 

[saadatmsg]

سلام دوست عزيز يه نمونه براتون گذاشتم اميدوارم كارتون راه بيفته

همونجور كه مي خواستي با زدن enter ويدئو فول ميشه و با زدن دوباره اون به سايز اولش برمي گرده

موفق باشي

 

[evil_gates]

همونجور كه مي خواستي با زدن enter ويدئو فول ميشه و با زدن دوباره اون به سايز اولش برمي گرده

فكر ميكنم منظور دوستمون تغيير اندازه شي ويدئو بود نه فول اسكرين شدن فيلم

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

يك كليد بسازيد براي پخش فايل فيلمتون و اين كد رو درونش بنويسيد:

VideoLoad("Video","x:\myvideo.avi")
VideoPlay("Video")
VideoScale("Video","300,200")
x = 0

يك اسكريپت هم ايجاد كنيد و تو قسمت Keyboard كليد Enter رو انتخاب و اين كد رو براش بنويسيد:

If (x=0) Then
  VideoScale("Video","800,600")
  x=1
  Return()
End
If (x=1) Then
  VideoScale("Video","300,200")
  x=0
  Return()
End

با زدن كليد Enter فيلم شما تغيير اندازه خواهد داد.

 

[saadatmsg]

درسته البته در تكميل فرمايشات آقاي evil_gates بايد عرض كنم كه وقتي شي ويدئو شما تغيير سايز مي ده بايد موقعيت x و y اونو نسبت به صفحه تنظيم كنيد تا شي ويدئو شما در جاي درستي از صفحه قرار بگيره و اين كار رو هم مي تونيد با دستور Move to انجام بديد

موفق باشيد