يرجى المساعدة ~الفلاش و الفيجول بيسك

[colorlink]

السلام عليكم


أحتاج مساعدة بالتعامل بين ملفات الفلاش و الفيجول
أنا عم ضيف فيديو للفيجول و الفيديو بصيغة swf
هلأ الأداة هي ShockwaveFlash
و الكود البرمجي

Private Sub Form_Load()



ShockwaveFlash1.Movie = "المسار"

If ShockwaveFlash1.Loop = False Then
Form1.Hide
Form2.Show
End If

End Sub
-----------------------------
Private Sub Form_Resize()
'moves the flash file
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Left = 0
'resives it with the from
ShockwaveFlash1.Width = Me.ScaleWidth
ShockwaveFlash1.Height = Me.ScaleHeight
End Sub


طيب! كيف بدي حط فيديو تاني بعد الأول وبنفس الفورم؟ إذا كان الأول ماعم يوقف العرض حتى بعد إيقاف خاصية اللووب

أنا صراحة دخت وبتمنى حد يساعدني و مشكورين جميعا

[@...Khalefa]

مش شايف اي مشكلة نهائي من اضافة اداة فلاش تانية

Private Sub Form_Load()



ShockwaveFlash1.Movie = "المسار"

ShockwaveFlash2.Movie = "المسار"

If ShockwaveFlash1.Loop = False Then
Form1.Hide
Form2.Show
End If

End Sub
-----------------------------
Private Sub Form_Resize()
'moves the flash file
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Left = 0

ShockwaveFlash2.Top = 0
ShockwaveFlash2.Left = ShockwaveFlash1.Width

'resives it with the from
ShockwaveFlash1.Width = Me.ScaleWidth
ShockwaveFlash1.Height = Me.ScaleHeight
End Sub

[colorlink]

طيب شو الكود اللازم من شان خلي ال ShockwaveFlash2تشتغل بعد إنتهاء عرض الShockwaveFlash1

وكيف فيني خلي ShockwaveFlash1تعرض بس مرة وحدة؟ لأنها عم تكرر العرض وما عم توقف

مشكور على الرد أخي الكريم ومنتظر الحل ^^

[colorlink]

مافي حد بيعرف؟

[colorlink]

:smailes113:

[@...Khalefa]

طلبك بالمرفقات

[colorlink]

شكرا جزيلا أخي الكريم :smailes3:

و الكود هو
Private Sub Form_Load()

ShockwaveFlash1.Movie = "e:\anarchy pro\1.swf"



End Sub


Private Sub Timer1_Timer()
If ShockwaveFlash1.IsPlaying Then Exit Sub
ShockwaveFlash2.Movie = "e:\anarchy pro\2.swf"


End Sub
Private Sub Form_Resize()
'moves the flash file
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Left = 0

ShockwaveFlash2.Top = 0
ShockwaveFlash2.Left = ShockwaveFlash1.Width

'resives it with the from
ShockwaveFlash1.Width = Me.ScaleWidth
ShockwaveFlash1.Height = Me.ScaleHeight
End Sub

[(li) صقر (li)]

تشكر أخي خليفة , لكن هل يمكن استخدام الأداة "ole" ؟ وكيف ؟

[@...Khalefa]

شرح اداة Ole صعب جدا بالنسبالى
لكن مرفق درس منقول ممكن تعرف فكرة
عامة عن الاداة من الدرس

[(li) صقر (li)]

يا عيني عليك أخي خليفة , لك مني الشكر الجزيل