السلام عليكم ورحمة الله وبركاته ..


مســاكم الله بالنور والسرور..اعضاء ومشرفي منتدى سفن الكرام.

نظرا لطلب اكثر الاعضاء لهذا الكود...وبعد التقصي والتحقق والبحث

وجدت . كود اضافة ملف فلاشي من نوع SWF في الفيجوال بيسك

(للمختصين في ذلك ).

======================================
الكود//: وكيفية وضعه او استعماله://
اضغط Ctrl +T ثم اختر Shockwave Flash

ثم استخدم هذا الكود
ShockwaveFlash1.Movie = "c:\flash.swf"
ShockwaveFlash1.Loop = True
ShockwaveFlash1.Play
======================================

أتمنى انه الجميع...يستفيد منه..وخاصة اللي طلبوه مننا في المنتدى :)



واي خدمات اخرى...RoRoWeRwEr معكم على مدار الـ 24 ساعه :)



تحيـاتي..

Alshab RoRo

وهذا كود آخر...


======================================
هذا الكود لإضافة عروض الفلاش لبرنامجك
Private Sub Command1_Click()
Dim s As String
s = App.Path
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"
ShockwaveFlash1.Movie = s + "a4.swf"

End Sub


و قبلها يجب عليك ادراج اداة ShockwaveFlash1 بالنقر بزر الماوس الايمن و اختيار كوبونس ثم فلاش موفي
======================================

اتمنى للجميع الاستفاده..


تحيـاتي..
Alshab RoRo

وعليكم السلام ورحمة الله وبركاته

أهليــن أخ RoRoWeRwEr
يعطيـــــــك ألف عافيـــة على الكود


والله ما يحرمنا من أفضالك


والسلام مســـك الختام :)