استفاده از Button ساخته شده با Flash

[Mohamad ghorbani]

سلام بچه ها ...
سوالم اینه که آیا میشه یه باتن رو با فلش طراحی کرد و سپس اون رو توی برنامه اورد؟
اگه میشه با چه فرمتی باید ذخیره بشه؟ با چه ابزاری بیارم توی برنامه؟
با تشکر . . .

[ali.rezaei7]

سلام
بعد از اینکه دکمه رو طراحی کردی باید پروژه رو با فرمت swf اکسپورت کنی.
برای اضافه کردن فایل فلش به اکتیوایکس shockwave flash احتیاج داری که با نصب فلش پلیر این کامپوننت هم نصب می شه.
بعدش components را از منوی project در وی بی انتخاب می کنی و کامپوننت رو وارد پروژه میکنید.

[parsiyan_mohsen]

با سلام


دوست عزیز ابتدا از طریق کلید ترکیبی Ctrl+T کنترل ShockwaveFlash را انتخاب کن، بعد کنترل رو وارد محیط وی بی کن . سپس این کد ها رو توی مشخصه مورد نظر کپی کنید :


Call ShockwaveFlash1.LoadMovie(0, App.Path & "\Movie2.swf")

[Mohamad ghorbani]

سلام بچه ها ...
من چند وقت پیش یه تاپیک گذاشتم که چجوری میشه یه باتن رو توی فلش طراحی کرد و اوورد توی برنامه.
دوستان لطف کردن و جواب دادن :

سلام
بعد از اینکه دکمه رو طراحی کردی باید پروژه رو با فرمت swf اکسپورت کنی.
برای اضافه کردن فایل فلش به اکتیوایکس shockwave flash احتیاج داری که با نصب فلش پلیر این کامپوننت هم نصب می شه.
بعدش components را از منوی project در وی بی انتخاب می کنی و کامپوننت رو وارد پروژه میکنید.

حالا من این کارو کردم . ولی فقط فلش رو نمایش می ده. مثلا اگه بخوام روش کلیک کنم و فرم دومم باز شه چی؟
لطف کنید کمک کنید! F1 !

[محسن شامحمدی]

حالا من این کارو کردم . ولی فقط فلش رو نمایش می ده. مثلا اگه بخوام روش کلیک کنم و فرم دومم باز شه چی؟
لطف کنید کمک کنید! F1 !
بسیار تکراری!
باید ابتدا در برنامه فلش ساز خود،روی رویداد کلیک دکمه فرمان fscommand بگذارید و بعدش توی وی بی بیاید توی رویداد fscommand شی کد بنویسید.حتی اگر چندتا دکمه داشته باشید می تونید فرمان ارسالی رو اینطوری چک کنید.

if command="ok" then
msgbox "ok"
elseif command="exit" then
end
end if

[ابوذر محمودی]

در تایید حرف دوستمون ، مثلا اگه تو فایل فلشت چن تا دکمه طراحی کرده باشی اینجوری باید استفاده کنی:
mainSw اسم شی فلش هستش که رو فرم قرار دادیم.
Factor،Customers و ... اسم دکمه هایی است که تو فلش طراحی کردیم .
کد سورس از برنامه حسابداری Mpmsoft می باشد، که تو سایت هم هست
Private Sub mainSw_FSCommand(ByVal command As String, ByVal args As String)
On Error Resume Next
Select Case command
Case "Factor"
FrmFactors.Show vbModeless, Mainform
Case "Customers"
FrmPhoneBook.Show vbModeless, Mainform
Case "Check"
FrmCheck.Show vbModeless, Mainform
Case "Calculator"
Shell "calc.exe", vbNormalFocus

Case "note"
FrmComment.Show vbModeless, Mainform

End Select
End Sub