PDA

View Full Version : اجرای فایل Flash



babak1
چهارشنبه 19 آذر 1382, 20:35 عصر
با عرض سلام خدمت دوستان خودم :
لطفا هر کس میتواند به من کمک کند دریغ نکند :roll: :cry:
سوال من این است که :
چگونه می توان یک فایل فلش را در ویژوال بیسیک 6 فراخوانی و اجرا نمود به صورتی که تمامی اجزای آن قابل اجرا باشد. لطفا در مورد کدنویسی آن هم توضیح دهید. با تشکر بسیار زیاد.

شفیعی
چهارشنبه 19 آذر 1382, 21:35 عصر
سلام
من یک برنامه نمونه از اینترنت در این زمینه گرفته ام اگر می خواهی بگو تا برایت ارسال کنم
زکات علم نشر علم است

babak1
پنج شنبه 20 آذر 1382, 21:29 عصر
دوست عزیز لطفا برای من بفرست. متشکرم :wink:

Gilbert
پنج شنبه 20 آذر 1382, 22:19 عصر
سلام
ببین خیلی تایپ کرده بودم ولی یه اشتباه باعث شد که پاک بشه
خیلی خلاصه میگم
برو کامپوننت ShockWave Flash رو بیار (برای این کار توی وی بی CTRL+T رو بزن)
در زیر تیکه کدهایی رو میبینی که هر قسمت رو توضیح دادم


کد زیر تنظیم قسمتهای از کامپوئننت هستش که جزو تنظیمات اولیه حساب میشه
"form1.swfFlash.Movie = App.Path & "\movie1.swf
form1.swfFlash.Width = 200 * Screen.TwipsPerPixelX
form1.swfFlash.Height = 200 * Screen.TwipsPerPixelY
(form1.Height = form1.swfFlash.Height + (40 * Screen.TwipsPerPixelY
(form1.Width = form1.swfFlash.Width + (100 * Screen.TwipsPerPixelX


کد زیر برای متوقف کردن و نمایش مجدد فایل فلش استفاده میشه و شرط مورد نظر هم میبینه که آیا فایل فلش در حال پخش شدن هست یا نه ؟
If (form1.swfFlash.IsPlaying()) Then
form1.swfFlash.StopPlay
Else
form1.swfFlash.Play
End If


بقیه کدهاشم دیگه خودت زحمتش رو بکش
پ.ن. فکر کنم تا همینجا کارت راه بیافته

بابای

Voldemort
جمعه 21 آذر 1382, 11:53 صبح
در این زمینه می توانید در وبلاگ زیر در قسمت آرشیو مقاله ای را پیدا کنید:
http://vblog.persianblog.com