استفاده از فايل Swf در ويژوال بيسيک

با سلام خدمت دوستان عزيز
ميشه بگين چجوري ميتونم يه فايل SWF رو تو فرمم نمايش بدم آيا به کامپوننت خاصي نياز هست؟:cry:
 

Peace Dove

Well-Known Member
من گشتم طرز استفادشو هم پیدا کردم

اول شما باید در وی بی به قسمت Component ها بروید و یک کامپوننت Shokwave Flash به فرم اضافه کنید و سپس در بخش Form Load این کدها را بنویسید :

Form1.ScaleMode = 3
" xWin.Movie = App.Path & "\name file.swf
xWin.Left = 0
xWin.Top = 0
xWin.Width = 550
xWin.Height = 400
xWin.Play

در کدهای بالا خط سوم تا ششم برای تنظبمات بزرگ و کوچکی و جای فایل در فرم میباشد .

البته Xwin نام آبجکت Shokwave flash میباشد که شما به دلخواه تنظیم میکنید.
حال به قسمت کد نویسی آبجکت Xwin ( یا هر اسم دیگری که انتخاب کردید ) بروید .
سپس به رویداد FScommand بروید و کد زیر را بنویسید :

If command = "name command " then
دستورات مورد نظر
end if

حال برنامه را اجرا و دکمه ها لذت ببرید .
البته توجه داشته باشید نام Command که در بالا نوشتم برای هر دکمه به اسم خود دکمه میباشد مثلا دکمه ی Cancel باید به این شکل تعریف کنید :
If command="cancel" then
دستورات
end if
 

kemiaonline

Banned
منم یه سوال دارم
مثلا" ما یه فایل فلش رو ساختیم و تو ویبی کد هاشو نوشتیم
حالا میشه یه طوری کدهاشو تنظیم کرد که برای اجرای فایل فلش نیاز نداشته باشیم که نرم افزار فلش نصب باشه
میدونم که میشه اما نمیدونم چه جوری باید تنظیماتش رو درست کرد
لطف کنین و پاسخ بدیدن
 
فکر کنم با درست کردن یه setup برای برنامتون کامپوننت فلش بر روی سیستم مقصد نصب بشه و دیگه نیازی به نصب برنامه فلش نباشه
 

جدیدترین ارسال ها

بالا